Mercurial > emacs
changeset 94215:28a10b30dfc6
(choose-completion-string): Use minibuffer-completion-table.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 21 Apr 2008 20:48:10 +0000 |
| parents | c8b73a9f4c36 |
| children | 34110d646fc8 |
| files | lisp/ChangeLog lisp/simple.el |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Apr 21 20:40:51 2008 +0000 +++ b/lisp/ChangeLog Mon Apr 21 20:48:10 2008 +0000 @@ -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
--- a/lisp/simple.el Mon Apr 21 20:40:51 2008 +0000 +++ b/lisp/simple.el Mon Apr 21 20:48:10 2008 +0000 @@ -5416,7 +5416,7 @@ 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)