(choose-completion-string): Use minibuffer-completion-table.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d83c5333bfd224d7e0e970e01461e446f5fe7804..f8ab54a16315e565d58188812140019243ba1961 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * simple.el (choose-completion-string): Use minibuffer-completion-table.
+
 2008-04-21  Chong Yidong  <cyd@stupidchicken.com>
 
        * term.el (term-emulate-terminal): Perform redisplay after the

diff --git a/lisp/simple.el b/lisp/simple.el
index 1a77c4bc3b3a1d218721894c79f3305b21b056f9..44dcbf45be14c007ac5f5d9346cc85ee92d839ce 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5416,7 +5416,7 @@ to decide what to delete."
             minibuffer-completion-table
             ;; If this is reading a file name, and the file name chosen
             ;; is a directory, don't exit the minibuffer.
-            (if (and (eq minibuffer-completion-table 'read-file-name-internal)
+            (if (and minibuffer-completing-file-name
                      (file-directory-p (field-string (point-max))))
                 (let ((mini (active-minibuffer-window)))
                   (select-window mini)