; Add menu entry for 'minibuffer-set-completion-styles'

* lisp/menu-bar.el: Bind 'minibuffer-set-completion-styles'.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index b7c6b31cf7b1c98445866b1cee67c276f7655eab..1f63cf8966acdef12479eacd7ba9a824786db94c 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -2560,6 +2560,11 @@ It must accept a buffer as its only required argument.")
     '(menu-item "Enter" minibuffer-complete-and-exit
                 :key-sequence "\r"
                :help "Complete input and exit minibuffer"))
+  (bindings--define-key map
+      [menu-bar minibuf minibuffer-set-completion-styles]
+    '(menu-item "Set Completion Styles"
+                minibuffer-set-completion-styles
+               :help "Set completion styles for the current minibuffer"))
   (bindings--define-key map
       [menu-bar minibuf minibuffer-widen-completions]
     '(menu-item "Remove Completions Restrictions"