# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 852432909 0
# Node ID 3626b6cd2ad1796eed96818bebeecef0ff75d1a6
# Parent  4792e73d511f4bb6e74310a2e7abe429dad68cb2
(switch-to-buffer-other-frame)
(switch-to-buffer-other-window): New arg NORECORD.

diff -r 4792e73d511f -r 3626b6cd2ad1 lisp/files.el
--- a/lisp/files.el	Sun Jan 05 02:53:57 1997 +0000
+++ b/lisp/files.el	Sun Jan 05 02:55:09 1997 +0000
@@ -489,17 +489,21 @@
       (setq count (1- count)))
     newname))
 
-(defun switch-to-buffer-other-window (buffer)
-  "Select buffer BUFFER in another window."
+(defun switch-to-buffer-other-window (buffer &optional norecord)
+  "Select buffer BUFFER in another window.
+Optional second arg NORECORD non-nil means
+do not put this buffer at the front of the list of recently selected ones."
   (interactive "BSwitch to buffer in other window: ")
   (let ((pop-up-windows t))
-    (pop-to-buffer buffer t)))
+    (pop-to-buffer buffer t norecord)))
 
-(defun switch-to-buffer-other-frame (buffer)
-  "Switch to buffer BUFFER in another frame."
+(defun switch-to-buffer-other-frame (buffer &optional norecord)
+  "Switch to buffer BUFFER in another frame.
+Optional second arg NORECORD non-nil means
+do not put this buffer at the front of the list of recently selected ones."
   (interactive "BSwitch to buffer in other frame: ")
   (let ((pop-up-frames t))
-    (pop-to-buffer buffer t)
+    (pop-to-buffer buffer t norecord)
     (raise-frame (window-frame (selected-window)))))
 
 (defun find-file (filename)