(mode-line-mode-menu): Add glasses-mode.

This commit is contained in:
Gerd Moellmann 2000-12-07 13:27:08 +00:00
parent 97f1dbede6
commit 7f8661a0ab

View file

@ -322,6 +322,9 @@ Return a string to display in the mode line for the current mode name."
(define-key mode-line-mode-menu [highlight-changes-mode]
`(menu-item ,(purecopy "Highlight changes") highlight-changes-mode
:button (:toggle . highlight-changes-mode)))
(define-key mode-line-mode-menu [glasses-mode]
`(menu-item ,(purecopy "Glasses") glasses-mode
:button (:toggle . glasses-mode)))
(define-key mode-line-mode-menu [hide-ifdef-mode]
`(menu-item ,(purecopy "Hide ifdef") hide-ifdef-mode
:button (:toggle . (bound-and-true-p hide-ifdef-mode))))