From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 7 Dec 2000 13:27:08 +0000 (+0000)
Subject: (mode-line-mode-menu): Add glasses-mode.
X-Git-Tag: emacs-pretest-21.0.93~105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7f8661a0ab7e34184c708d2ec58143e85fbf14cf;p=emacs.git

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

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))))