From 7f8661a0ab7e34184c708d2ec58143e85fbf14cf Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 7 Dec 2000 13:27:08 +0000 Subject: [PATCH] (mode-line-mode-menu): Add glasses-mode. --- lisp/bindings.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/bindings.el b/lisp/bindings.el index d156360c772..899afbb8c5a 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -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)))) -- 2.39.2