From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 11 Apr 2024 16:04:25 +0000 (+0300)
Subject: ; * lisp/bindings.el (mode-line-mode-menu): Add Completion Preview.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=329f725286ca97def4447925463e228ca58859e0;p=emacs.git

; * 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 34820d70adc..4c4b89c4028 100644
--- 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"