Mercurial > emacs
changeset 101946:46cc0fb34421
(read-buffer-to-switch): Add table to icomplete-with-completion-tables.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 12 Feb 2009 02:19:53 +0000 |
| parents | 2ee2b248bc62 |
| children | 5eee9e7321f6 |
| files | lisp/ChangeLog lisp/files.el |
| diffstat | 2 files changed, 18 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Feb 11 14:47:24 2009 +0000 +++ b/lisp/ChangeLog Thu Feb 12 02:19:53 2009 +0000 @@ -1,3 +1,8 @@ +2009-02-12 Stefan Monnier <monnier@iro.umontreal.ca> + + * files.el (read-buffer-to-switch): + Add table to icomplete-with-completion-tables. + 2009-02-11 Chong Yidong <cyd@stupidchicken.com> * dired-aux.el (dired-add-entry): Avoid munging long-form Dired @@ -28,8 +33,8 @@ 2009-02-11 Chong Yidong <cyd@stupidchicken.com> - * emacs-lisp/find-func.el (find-library-name, find-library): Doc - fixes. (Part of bug#2270) + * emacs-lisp/find-func.el (find-library-name, find-library): + Doc fixes. (Part of bug#2270) 2009-02-10 Eric Hanchrow <eric.hanchrow@gmail.com> (tiny change)
--- a/lisp/files.el Wed Feb 11 14:47:24 2009 +0000 +++ b/lisp/files.el Thu Feb 12 02:19:53 2009 +0000 @@ -1156,7 +1156,17 @@ and default values." (let ((rbts-completion-table (internal-complete-buffer-except))) (minibuffer-with-setup-hook - (lambda () (setq minibuffer-completion-table rbts-completion-table)) + (lambda () + (setq minibuffer-completion-table rbts-completion-table) + ;; Since rbts-completion-table is built dynamically, we + ;; can't just add it to the default value of + ;; icomplete-with-completion-tables, so we add it + ;; here manually. + (if (and (boundp 'icomplete-with-completion-tables) + (listp icomplete-with-completion-tables)) + (set (make-local-variable 'icomplete-with-completion-tables) + (cons rbts-completion-table + icomplete-with-completion-tables)))) (read-buffer prompt (other-buffer (current-buffer)) (confirm-nonexistent-file-or-buffer)))))