# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 976195518 0
# Node ID f377d034ed4e7227f967a4881616db41a418cf6b
# Parent  b7ae6305e6eb2b6e73f31995929d219c766169e1
(glasses-mode): Update mode line at the end
of the function.

diff -r b7ae6305e6eb -r f377d034ed4e lisp/progmodes/glasses.el
--- a/lisp/progmodes/glasses.el	Thu Dec 07 13:22:12 2000 +0000
+++ b/lisp/progmodes/glasses.el	Thu Dec 07 13:25:18 2000 +0000
@@ -257,7 +257,6 @@
 					   '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 @@
 	    (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