summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1997-01-05 02:55:09 +0000
committerRichard M. Stallman <rms@gnu.org>1997-01-05 02:55:09 +0000
commitaf45150f6c2d068af8f89aa1ef0544f1c9892f17 (patch)
tree5c940868163f35b48a97ec0c98192728d28f15f1 /lisp
parent4727b92e013f81694c77c0783eae07408edb8bd2 (diff)
downloademacs-af45150f6c2d068af8f89aa1ef0544f1c9892f17.tar.gz
(switch-to-buffer-other-frame)
(switch-to-buffer-other-window): New arg NORECORD.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/files.el16
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/files.el b/lisp/files.el
index f62e7d9aa0c..3d605384344 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -489,17 +489,21 @@ unlike `file-truename'."
(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)