From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 25 Apr 1995 22:28:58 +0000 (+0000)
Subject: (Info-edit-mode, Info-cease-edit): Use force-mode-line-update.
X-Git-Tag: emacs-19.34~4278
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c609f537f34ad51999d2d50a9663d73029b348b;p=emacs.git

(Info-edit-mode, Info-cease-edit): Use force-mode-line-update.
---

diff --git a/lisp/info.el b/lisp/info.el
index 97b717d9876..0501fab90f3 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1561,8 +1561,7 @@ which returns to Info mode for browsing.
   (setq mode-name "Info Edit")
   (kill-local-variable 'mode-line-buffer-identification)
   (setq buffer-read-only nil)
-  ;; Make mode line update.
-  (set-buffer-modified-p (buffer-modified-p))
+  (force-mode-line-update)
   (buffer-enable-undo (current-buffer))
   (run-hooks 'Info-edit-mode-hook))
 
@@ -1588,8 +1587,7 @@ Allowed only if variable `Info-enable-edit' is non-nil."
   (setq mode-name "Info")
   (Info-set-mode-line)
   (setq buffer-read-only t)
-  ;; Make mode line update.
-  (set-buffer-modified-p (buffer-modified-p))
+  (force-mode-line-update)
   (and (marker-position Info-tag-table-marker)
        (buffer-modified-p)
        (message "Tags may have changed.  Use Info-tagify if necessary")))