Mercurial > emacs
changeset 16831:3626b6cd2ad1
(switch-to-buffer-other-frame)
(switch-to-buffer-other-window): New arg NORECORD.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 05 Jan 1997 02:55:09 +0000 |
| parents | 4792e73d511f |
| children | e4851d47a05d |
| files | lisp/files.el |
| diffstat | 1 files changed, 10 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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)