Mercurial > emacs

diff lisp/progmodes/glasses.el @ 34338:f377d034ed4e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(glasses-mode): Update mode line at the end of the function.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 07 Dec 2000 13:25:18 +0000
parents 1b2e8bd62f76
children e859388caea4
line wrap: on
line diff
--- 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