1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00

(choose-completion-string): When not leaving the

minibuffer, raise the minibuffer frame when minibuffer-auto-raise
is set.
This commit is contained in:
Gerd Moellmann 2001-03-08 15:47:58 +00:00
parent e1fbabaf4d
commit 96e8e60394
2 changed files with 8 additions and 1 deletions

View File

@ -1,5 +1,9 @@
2001-03-08 Gerd Moellmann <gerd@gnu.org>
* simple.el (choose-completion-string): When not leaving the
minibuffer, raise the minibuffer frame when minibuffer-auto-raise
is set.
* window.el (shrink-window-if-larger-than-buffer): Handle frame
parameter `(minibuffer . t)'.

View File

@ -3696,7 +3696,10 @@ With prefix argument N, move N items (negative N means move backward)."
;; 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 ()