From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 19 Mar 2001 22:23:03 +0000 (+0000)
Subject: (mode-line-mode-menu): `glasses-mode' might be unbound.
X-Git-Tag: emacs-pretest-21.0.101~250
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e84c695ddab8539631dedd8888b0ca9d2146deea;p=emacs.git

(mode-line-mode-menu): `glasses-mode' might be unbound.
(completion-ignored-extensions): Remove duplicate ".class".
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 400dc66a892..c0e93604e22 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-19  Stefan Monnier  <monnier@cs.yale.edu>
+
+	* bindings.el (mode-line-mode-menu): `glasses-mode' might be unbound.
+	(completion-ignored-extensions): Remove duplicate ".class".
+
 2001-03-19  Andreas Schwab  <schwab@suse.de>
 
 	* textmodes/reftex-dcr.el (reftex-view-crossref): Doc fix.  From
diff --git a/lisp/bindings.el b/lisp/bindings.el
index 3d9c6604aef..9d203ec9088 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -324,7 +324,7 @@ Return a string to display in the mode line for the current mode name."
 	      :button (:toggle . highlight-changes-mode)))
 (define-key mode-line-mode-menu [glasses-mode]
   `(menu-item ,(purecopy "Glasses") glasses-mode
-	      :button (:toggle . glasses-mode)))
+	      :button (:toggle . (bound-and-true-p 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))))
@@ -414,8 +414,6 @@ buffer, mouse-2: prev, M-mouse-2: next, mouse-3: buffer menu")
 	 ".x86f" ".sparcf"
 	 ;; Libtool
 	 ".lo" ".la"
-	 ;; Java
-	 ".class"
 	 ;; Texinfo-related
 	 ".toc" ".log" ".aux"
 	 ".cp" ".fn" ".ky" ".pg" ".tp" ".vr"