; * lisp/bindings.el (mode-line-mode-menu): Add Completion Preview.

(cherry picked from commit c4a8976d59aa4c9a325a6331b52ce329cb5de248)

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 34820d70adcbaa36a5512a2cb0739204bf0be08c..4c4b89c4028cf9b6819bebfb0afb373460bbb050 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -801,6 +801,11 @@ meaningful if it refers to a lexically bound variable."
   '(menu-item "Flyspell (Fly)" flyspell-mode
              :help "Spell checking on the fly"
              :button (:toggle . (bound-and-true-p flyspell-mode))))
+(bindings--define-key mode-line-mode-menu [completion-preview-mode]
+  '(menu-item "Completion Preview (CP)" completion-preview-mode
+              :help "Show preview of completion suggestions as you type"
+              :enable completion-at-point-functions
+              :button (:toggle . (bound-and-true-p completion-preview-mode))))
 (bindings--define-key mode-line-mode-menu [auto-revert-tail-mode]
   '(menu-item "Auto revert tail (Tail)" auto-revert-tail-mode
              :help "Revert the tail of the buffer when the file on disk grows"