Extend minibuffer completion menu bar menu

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 2eed5d1ad1628f6be4ceacd71265406a6c359341..b72aaeb93a2c329254dbfc4f9faf08aafd95f7fb 100644 (file)
--- 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 73dca4cd9ae9533812f289a79ff7d596fd6b34b4..11a28b9e5d655b3b305d843717892c29b6c9e42a 100644 (file)
--- 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.