# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1234405193 0
# Node ID 46cc0fb3442133ed10de593388a326ec044ecd37
# Parent  2ee2b248bc62138f0db00b74222c22c3dbce59ba
(read-buffer-to-switch): Add table to icomplete-with-completion-tables.

diff -r 2ee2b248bc62 -r 46cc0fb34421 lisp/ChangeLog
--- 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)
 
diff -r 2ee2b248bc62 -r 46cc0fb34421 lisp/files.el
--- 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)))))