From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 8 Jun 2024 12:07:19 +0000 (+0200)
Subject: Extend minibuffer completion menu bar menu
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd90dd4af99edcadc5c4244cb960a45df27eddc6;p=emacs.git

Extend minibuffer completion menu bar menu
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 2eed5d1ad16..b72aaeb93a2 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -2583,6 +2583,21 @@ 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-toggle-exceptional-candidates]
+    '(menu-item "Toggle Exceptional Candidates"
+                minibuffer-toggle-exceptional-candidates
+		:help "Toggle inclusion of exceptional candidates in completions list"))
+  (bindings--define-key map
+      [menu-bar minibuf minibuffer-toggle-completion-ignore-case]
+    '(menu-item "Toggle Completion Case Sensitivity"
+                minibuffer-toggle-completion-ignore-case
+		:help "Toggle completion case sensitivity"))
+  (bindings--define-key map
+      [menu-bar minibuf minibuffer-toggle-completions-annotations]
+    '(menu-item "Toggle Completion Annotations"
+                minibuffer-toggle-completions-annotations
+		:help "Toggle annotations for completion candidates"))
   (bindings--define-key map
       [menu-bar minibuf minibuffer-set-completion-styles]
     '(menu-item "Set Completion Styles"
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 73dca4cd9ae..11a28b9e5d6 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -5833,7 +5833,7 @@ members of the minibuffer history list."
               (not completions-exclude-exceptional-candidates))
   (when (get-buffer-window completions-buffer-name 0)
     (minibuffer-completion-help))
-  (minibuffer-message "Completion now %scludes exceptional canddiates"
+  (minibuffer-message "Completion now %scludes exceptional candidates"
                       (if completions-exclude-exceptional-candidates
                           "ex" "in")))
 
@@ -5843,7 +5843,9 @@ members of the minibuffer history list."
   (setq-local minibuffer-completion-annotations
               (not minibuffer-completion-annotations))
   (when (get-buffer-window completions-buffer-name 0)
-    (minibuffer-completion-help)))
+    (minibuffer-completion-help))
+  (minibuffer-message "Completion annotations %sabled"
+                      (if minibuffer-completion-annotations "en" "dis")))
 
 (defun minibuffer-widen-completions (&optional all)
   "Remove restrictions on current minibuffer completions list.