From 97f1dbede6bcde329be1965f6ba871d9e5f95c25 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 7 Dec 2000 13:25:18 +0000 Subject: (glasses-mode): Update mode line at the end of the function. --- lisp/progmodes/glasses.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/progmodes/glasses.el') 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 -- cgit v1.2.1