; Bind 'minibuffer-complete-and-exit' in "Minibuf" menu

* lisp/menu-bar.el (minibuffer-local-completion-map): Bind
'minibuffer-complete-and-exit' in "Minibuf" menu bar menu, shadowing
the binding of 'exit-minibuffer' in that menu.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index d8e4497833aa1a372dfbcf4bf4a1857653ad917d..b7c6b31cf7b1c98445866b1cee67c276f7655eab 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -2556,6 +2556,10 @@ It must accept a buffer as its only required argument.")
     (cons "Minibuf" (make-sparse-keymap "Minibuf"))))
 
 (let ((map minibuffer-local-completion-map))
+  (bindings--define-key map [menu-bar minibuf return]
+    '(menu-item "Enter" minibuffer-complete-and-exit
+                :key-sequence "\r"
+               :help "Complete input and exit minibuffer"))
   (bindings--define-key map
       [menu-bar minibuf minibuffer-widen-completions]
     '(menu-item "Remove Completions Restrictions"