# HG changeset patch # User Karl Heuer # Date 798848938 0 # Node ID 7f357fe2cda5e92bcba29ed98dbe7cb8254ff593 # Parent 28e4495a9e8fdc997544afd14e5644b6af79076e (Info-edit-mode, Info-cease-edit): Use force-mode-line-update. diff -r 28e4495a9e8f -r 7f357fe2cda5 lisp/info.el --- a/lisp/info.el Tue Apr 25 22:28:40 1995 +0000 +++ b/lisp/info.el Tue Apr 25 22:28:58 1995 +0000 @@ -1561,8 +1561,7 @@ (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 @@ (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")))