(glasses-mode): Update mode line at the end

of the function.

1 files changed, 2 insertions, 2 deletions

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