(defun b-to-p ()
  (interactive)
  (message (concat "Processing " buffer-file-name))
  (beginning-of-buffer)
  (replace-string "blackbird/home" "home/phoenix/faculty")
  (save-buffer)
)

(defun f93-to-f94 ()
  (interactive)
  (message (concat "Processing " buffer-file-name))
  (beginning-of-buffer)
  (replace-string "F93" "F94")
  (save-buffer)
)

(defun unso ()
  (interactive)
  (message (concat "Processing " buffer-file-name))
  (beginning-of-buffer)
  (replace-string ".so \\*~/stdhdr.me\n" "")
  (save-buffer)
)