Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

(read-buffer-to-switch): Avoid making assumptions about `other-buffer'.

Browse source
This commit is contained in:
Stefan Monnier 2008-04-29 14:47:45 +00:00
parent ac2c49f4e9
commit 28bb43e10f
2 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-04-29 Stefan Monnier <monnier@iro.umontreal.ca>
* files.el (read-buffer-to-switch):
Avoid making assumptions about `other-buffer'.
2008-04-29 Sam Steingold <sds@gnu.org>
* vc.el (vc-dir-mode-hook): Add normal hook.

11
lisp/files.el
View file

@ -1042,13 +1042,12 @@ use with M-x."
(defun read-buffer-to-switch (prompt)
"Read the name of a buffer to switch to and return as a string.
It is intended for `switch-to-buffer' family of commands since they
need to omit the name of current buffer from the list of complations
need to omit the name of current buffer from the list of completions
and default values."
(minibuffer-with-setup-hook
(lambda ()
(set (make-local-variable 'minibuffer-completion-table)
(internal-complete-buffer-except (other-buffer (current-buffer) t))))
(read-buffer prompt (other-buffer (current-buffer)))))
(let ((rbts-completion-table (internal-complete-buffer-except)))
(minibuffer-with-setup-hook
(lambda () (setq minibuffer-completion-table rbts-completion-table))
(read-buffer prompt (other-buffer (current-buffer))))))
(defun switch-to-buffer-other-window (buffer &optional norecord)
"Select buffer BUFFER in another window.