Mercurial > emacs
changeset 94479:0e056b86de6f
(read-buffer-to-switch): Avoid making assumptions about `other-buffer'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 29 Apr 2008 14:47:45 +0000 |
| parents | 618e87ee72c0 |
| children | cf998cc4d006 |
| files | lisp/ChangeLog lisp/files.el |
| diffstat | 2 files changed, 10 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Apr 29 13:42:15 2008 +0000 +++ b/lisp/ChangeLog Tue Apr 29 14:47:45 2008 +0000 @@ -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.
--- a/lisp/files.el Tue Apr 29 13:42:15 2008 +0000 +++ b/lisp/files.el Tue Apr 29 14:47:45 2008 +0000 @@ -1042,13 +1042,12 @@ (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.