From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 10 Aug 1999 16:37:57 +0000 (+0000)
Subject: (view-mode-enable, view-mode-disable):
X-Git-Tag: emacs-pretest-21.0.90~7223
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=19b7f6c9f0cfe9a59630f98714126edb6c7f8e48;p=emacs.git

(view-mode-enable, view-mode-disable):
Call force-mode-line-update.
---

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))