mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(switch-to-buffer-other-window, switch-to-buffer-other-frame):

Browse Source 
Rename buffer argument to buffer-or-name.  Reword and mention new
option confirm-nonexistent-file-or-buffer in doc-string.
This commit is contained in:
Martin Rudalics 2008-11-22 11:42:00 +00:00
parent ee50ff07eb
commit 3ad96b4d0a
2 changed files with 37 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/ChangeLog
View File

@ -1,12 +1,19 @@
2008-11-22 Martin Rudalics <rudalics@gmx.at>
* files.el (switch-to-buffer-other-window)
(switch-to-buffer-other-frame): Rename buffer argument to
buffer-or-name. Reword and mention new option
confirm-nonexistent-file-or-buffer in doc-string.
2008-11-22 Michael Kifer <kifer@cs.stonybrook.edu>
* viper.el: date change.
* viper-cmd.el (viper-envelop-ESC-key):
viper-translate-all-ESC-keysequences is now a function.
* viper-init (viper-translate-all-ESC-keysequences): make this variable
2008-11-22 Stefan Monnier <monnier@iro.umontreal.ca>
* vc-hooks.el (vc-follow-link, vc-find-file-hook):

43
lisp/files.el
View File

@ -1120,40 +1120,49 @@ and default values."
(read-buffer prompt (other-buffer (current-buffer))
(if confirm-nonexistent-file-or-buffer 'confirm-only)))))
(defun switch-to-buffer-other-window (buffer &optional norecord)
"Select buffer BUFFER in another window.
If BUFFER does not identify an existing buffer, then this function
creates a buffer with that name.
(defun switch-to-buffer-other-window (buffer-or-name &optional norecord)
"Select the buffer specified by BUFFER-OR-NAME in another window.
BUFFER-OR-NAME may be a buffer, a string \(a buffer name), or
nil. Return the buffer switched to.
When called from Lisp, BUFFER can be a buffer, a string \(a buffer name),
or nil. If BUFFER is nil, then this function chooses a buffer
using `other-buffer'.
Optional second arg NORECORD non-nil means do not put this
If BUFFER-OR-NAME is a string and does not identify an existing
buffer, create a new buffer with that name. Interactively, if
`confirm-nonexistent-file-or-buffer' is non-nil, request
confirmation before creating a new buffer. If BUFFER-OR-NAME is
nil, switch to buffer returned by `other-buffer'.
Optional second argument NORECORD non-nil means do not put this
buffer at the front of the list of recently selected ones.
This function returns the buffer it switched to.
This uses the function `display-buffer' as a subroutine; see its
documentation for additional customization information."
(interactive
(list (read-buffer-to-switch "Switch to buffer in other window: ")))
(let ((pop-up-windows t)
;; Don't let these interfere.
same-window-buffer-names same-window-regexps)
(pop-to-buffer buffer t norecord)))
(pop-to-buffer buffer-or-name t norecord)))
(defun switch-to-buffer-other-frame (buffer-or-name &optional norecord)
"Switch to buffer BUFFER-OR-NAME in another frame.
BUFFER-OR-NAME may be a buffer, a string \(a buffer name), or
nil. Return the buffer switched to.
If BUFFER-OR-NAME is a string and does not identify an existing
buffer, create a new buffer with that name. Interactively, if
`confirm-nonexistent-file-or-buffer' is non-nil, request
confirmation before creating a new buffer. If BUFFER-OR-NAME is
nil, switch to buffer returned by `other-buffer'.
(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.
This function returns the buffer it switched to.
This uses the function `display-buffer' as a subroutine; see
its documentation for additional customization information."
This uses the function `display-buffer' as a subroutine; see its
documentation for additional customization information."
(interactive
(list (read-buffer-to-switch "Switch to buffer in other frame: ")))
(let ((pop-up-frames t)
same-window-buffer-names same-window-regexps)
(pop-to-buffer buffer t norecord)))
(pop-to-buffer buffer-or-name t norecord)))
(defun display-buffer-other-frame (buffer)
"Display buffer BUFFER in another frame.