From af45150f6c2d068af8f89aa1ef0544f1c9892f17 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 5 Jan 1997 02:55:09 +0000 Subject: (switch-to-buffer-other-frame) (switch-to-buffer-other-window): New arg NORECORD. --- lisp/files.el | 16 ++++++++++------ 1 file 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) -- cgit v1.2.1