(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) )