From 19b7f6c9f0cfe9a59630f98714126edb6c7f8e48 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 10 Aug 1999 16:37:57 +0000 Subject: [PATCH] (view-mode-enable, view-mode-disable): Call force-mode-line-update. --- lisp/view.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/view.el b/lisp/view.el index 593d29b6a24..8ac7a139713 100644 --- a/lisp/view.el +++ b/lisp/view.el @@ -447,12 +447,14 @@ Entry to view-mode runs the normal hook `view-mode-hook'." (if (buffer-file-name) (file-name-nondirectory (buffer-file-name)) (buffer-name)))) + (force-mode-line-update) (run-hooks 'view-mode-hook)) (defun view-mode-disable () "Turn off View mode." (remove-hook 'change-major-mode-hook 'view-mode-disable t) (and view-overlay (delete-overlay view-overlay)) + (force-mode-line-update) (setq view-mode nil Helper-return-blurb view-old-Helper-return-blurb buffer-read-only view-old-buffer-read-only)) -- 2.39.5