# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 984066426 0
# Node ID 5a5adc549cadc12e112b56cddf1cae95b32f6bd3
# Parent  f3b29117d2dd700e97b2135701654412cfe44f0b
(choose-completion-string): When not leaving the
minibuffer, raise the minibuffer frame when minibuffer-auto-raise
is set.

diff -r f3b29117d2dd -r 5a5adc549cad lisp/simple.el
--- 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 ()