# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 976195628 0
# Node ID b00a4ef86bb4a4762598c8d7d1cb9c6552080efa
# Parent  f377d034ed4e7227f967a4881616db41a418cf6b
(mode-line-mode-menu): Add glasses-mode.

diff -r f377d034ed4e -r b00a4ef86bb4 lisp/bindings.el
--- a/lisp/bindings.el	Thu Dec 07 13:25:18 2000 +0000
+++ b/lisp/bindings.el	Thu Dec 07 13:27:08 2000 +0000
@@ -322,6 +322,9 @@
 (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))))