1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00

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

This commit is contained in:
Eli Zaretskii 2024-04-11 19:04:25 +03:00
parent b436f430e3
commit c4a8976d59

View file

@ -803,6 +803,11 @@ meaningful if it refers to a lexically bound variable."
'(menu-item "Flyspell (Fly)" flyspell-mode '(menu-item "Flyspell (Fly)" flyspell-mode
:help "Spell checking on the fly" :help "Spell checking on the fly"
:button (:toggle . (bound-and-true-p flyspell-mode)))) :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] (bindings--define-key mode-line-mode-menu [auto-revert-tail-mode]
'(menu-item "Auto revert tail (Tail)" 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" :help "Revert the tail of the buffer when the file on disk grows"