From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 10 Jan 2024 13:04:41 +0000 (+0100)
Subject: ; Add menu entry for 'minibuffer-set-completion-styles'
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b001daf9d3d7e070989778b3f4cb11ba138a61e;p=emacs.git

; 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 b7c6b31cf7b..1f63cf8966a 100644
--- 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"