* lisp/minibuffer.el (minibuffer-choose-completion-or-exit): Improve.

Use minibuffer-complete-and-exit instead of exit-minibuffer
since this is what it's used in the completion minibuffer.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index d84e92fc01340badfafbce6b3e84ea46ac6288af..3e2e3b6c6f28b763398a9c5187b587471c96a17e 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -4695,7 +4695,7 @@ contents."
   (interactive "P")
   (condition-case nil
       (minibuffer-choose-completion no-exit no-quit)
-    (error (exit-minibuffer))))
+    (error (minibuffer-complete-and-exit))))
 
 (defun minibuffer-complete-history ()
   "Complete the minibuffer history as far as possible.