diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-10-11 15:39:13 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-10-11 15:39:13 +0000 |
commit | 265f71050d1130709b908dc8d4aa14438dfe512f (patch) | |
tree | e83336a434e46f10a07e54c38d47fcf9de972464 | |
parent | ed1c449e9839a9cfcaafdd4989c2cc8e6de0f187 (diff) | |
download | emacs-265f71050d1130709b908dc8d4aa14438dfe512f.tar.gz |
(find-alternate-file-other-window): New function.
-rw-r--r-- | lisp/files.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el index e9f9ed30c28..8254b8a456b 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -514,6 +514,26 @@ Use \\[toggle-read-only] to permit editing." (setq buffer-read-only t) (current-buffer)) +(defun find-alternate-file-other-window (filename) + "Find file FILENAME as a replacement for the file in the next window. +This command does not select that window." + (interactive + (save-selected-window + (other-window 1) + (let ((file buffer-file-name) + (file-name nil) + (file-dir nil)) + (and file + (setq file-name (file-name-nondirectory file) + file-dir (file-name-directory file))) + (list (read-file-name + "Find alternate file: " file-dir nil nil file-name))))) + (if (one-window-p) + (find-file-other-window filename) + (save-selected-window + (other-window 1) + (find-alternate-file filename)))) + (defun find-alternate-file (filename) "Find file FILENAME, select its buffer, kill previous buffer. If the current buffer now contains an empty file that you just visited |