From d23734dc17f387db634d6bcb11821d977748c600 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 21 Apr 2008 20:48:10 +0000 Subject: [PATCH] (choose-completion-string): Use minibuffer-completion-table. --- lisp/ChangeLog | 4 ++++ lisp/simple.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d83c5333bfd..f8ab54a1631 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-04-21 Stefan Monnier + + * simple.el (choose-completion-string): Use minibuffer-completion-table. + 2008-04-21 Chong Yidong * term.el (term-emulate-terminal): Perform redisplay after the diff --git a/lisp/simple.el b/lisp/simple.el index 1a77c4bc3b3..44dcbf45be1 100644 --- 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) -- 2.39.5