Mercurial > emacs
changeset 36668:5a5adc549cad
(choose-completion-string): When not leaving the
minibuffer, raise the minibuffer frame when minibuffer-auto-raise
is set.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 08 Mar 2001 15:47:06 +0000 |
| parents | f3b29117d2dd |
| children | 824d5e6982a4 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Thu Mar 08 15:04:19 2001 +0000 +++ b/lisp/simple.el Thu Mar 08 15:47:06 2001 +0000 @@ -3696,7 +3696,10 @@ ;; is a directory, don't exit the minibuffer. (if (and (eq minibuffer-completion-table 'read-file-name-internal) (file-directory-p (field-string (point-max)))) - (select-window (active-minibuffer-window)) + (let ((mini (active-minibuffer-window))) + (select-window mini) + (when minibuffer-auto-raise + (raise-frame (window-frame mini)))) (exit-minibuffer)))))) (defun completion-list-mode ()