# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 813425953 0
# Node ID 55c6e0f3c2f405c986cdf5acc1071be89ef4f2fd
# Parent  fc4f18921b24145f485d7540511694ab978834d4
(find-alternate-file-other-window): New function.

diff -r fc4f18921b24 -r 55c6e0f3c2f4 lisp/files.el
--- a/lisp/files.el	Wed Oct 11 15:17:44 1995 +0000
+++ b/lisp/files.el	Wed Oct 11 15:39:13 1995 +0000
@@ -514,6 +514,26 @@
   (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