diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-12-07 13:25:18 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-12-07 13:25:18 +0000 |
| commit | 97f1dbede6bcde329be1965f6ba871d9e5f95c25 (patch) | |
| tree | 771e9b1f75eb12c34144456d8201717b3d63871a /lisp/progmodes/glasses.el | |
| parent | 2a5405b6680afd509778c5dd132ad103dcb830e4 (diff) | |
| download | emacs-97f1dbede6bcde329be1965f6ba871d9e5f95c25.tar.gz | |
(glasses-mode): Update mode line at the end
of the function.
Diffstat (limited to 'lisp/progmodes/glasses.el')
| -rw-r--r-- | lisp/progmodes/glasses.el | 4 |
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 |