From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 7 Dec 2000 13:25:18 +0000 (+0000)
Subject: (glasses-mode): Update mode line at the end
X-Git-Tag: emacs-pretest-21.0.93~106
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=97f1dbede6bcde329be1965f6ba871d9e5f95c25;p=emacs.git

(glasses-mode): Update mode line at the end
of the function.
---

diff --git a/lisp/progmodes/glasses.el b/lisp/progmodes/glasses.el
index bc28ca68b96..2b4fba4dfe8 100644
--- a/lisp/progmodes/glasses.el
+++ b/lisp/progmodes/glasses.el
@@ -257,7 +257,6 @@ recognized according to the current value of the variable `glasses-separator'."
 					   'glasses-mode)
 			       'help-echo "mouse-2: turn off Glasses mode")))
 
-
 ;;;###autoload
 (defun glasses-mode (&optional arg)
   "Minor mode for making identifiers likeThis readable.
@@ -284,7 +283,8 @@ at places they belong to."
 	    (remove-hook 'after-change-functions 'glasses-change t)
 	    (remove-hook 'local-write-file-hooks
 			 'glasses-convert-to-unreadable t))))
-      (setq glasses-mode new-flag))))
+      (setq glasses-mode new-flag)
+      (force-mode-line-update))))
 
 
 ;;; Announce