Mercurial > emacs
comparison lisp/files.el @ 54254:accdf6256d6e
(switch-to-buffer-other-window): Bind
same-window-buffer-names and same-window-regexps to nil.
(switch-to-buffer-other-frame): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 04 Mar 2004 16:49:23 +0000 |
| parents | cf58d7dd1a97 |
| children | 1aa9a08f7ca7 |
comparison
equal
deleted
inserted
replaced
| 54253:27114ce380a0 | 54254:accdf6256d6e |
|---|---|
| 853 do not put this buffer at the front of the list of recently selected ones. | 853 do not put this buffer at the front of the list of recently selected ones. |
| 854 | 854 |
| 855 This uses the function `display-buffer' as a subroutine; see its | 855 This uses the function `display-buffer' as a subroutine; see its |
| 856 documentation for additional customization information." | 856 documentation for additional customization information." |
| 857 (interactive "BSwitch to buffer in other window: ") | 857 (interactive "BSwitch to buffer in other window: ") |
| 858 (let ((pop-up-windows t)) | 858 (let ((pop-up-windows t) |
| 859 ;; Don't let these interfere. | |
| 860 same-window-buffer-names same-window-regexps) | |
| 859 (pop-to-buffer buffer t norecord))) | 861 (pop-to-buffer buffer t norecord))) |
| 860 | 862 |
| 861 (defun switch-to-buffer-other-frame (buffer &optional norecord) | 863 (defun switch-to-buffer-other-frame (buffer &optional norecord) |
| 862 "Switch to buffer BUFFER in another frame. | 864 "Switch to buffer BUFFER in another frame. |
| 863 Optional second arg NORECORD non-nil means | 865 Optional second arg NORECORD non-nil means |
| 864 do not put this buffer at the front of the list of recently selected ones. | 866 do not put this buffer at the front of the list of recently selected ones. |
| 865 | 867 |
| 866 This uses the function `display-buffer' as a subroutine; see its | 868 This uses the function `display-buffer' as a subroutine; see its |
| 867 documentation for additional customization information." | 869 documentation for additional customization information." |
| 868 (interactive "BSwitch to buffer in other frame: ") | 870 (interactive "BSwitch to buffer in other frame: ") |
| 869 (let ((pop-up-frames t)) | 871 (let ((pop-up-frames t) |
| 872 same-window-buffer-names same-window-regexps) | |
| 870 (pop-to-buffer buffer t norecord) | 873 (pop-to-buffer buffer t norecord) |
| 871 (raise-frame (window-frame (selected-window))))) | 874 (raise-frame (window-frame (selected-window))))) |
| 872 | 875 |
| 873 (defvar find-file-default nil | 876 (defvar find-file-default nil |
| 874 "Used within `find-file-read-args'.") | 877 "Used within `find-file-read-args'.") |