Commit 2c609f53 authored by Karl Heuer's avatar Karl Heuer
Browse files

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

parent 1cd3732c
...@@ -1561,8 +1561,7 @@ which returns to Info mode for browsing. ...@@ -1561,8 +1561,7 @@ which returns to Info mode for browsing.
(setq mode-name "Info Edit") (setq mode-name "Info Edit")
(kill-local-variable 'mode-line-buffer-identification) (kill-local-variable 'mode-line-buffer-identification)
(setq buffer-read-only nil) (setq buffer-read-only nil)
;; Make mode line update. (force-mode-line-update)
(set-buffer-modified-p (buffer-modified-p))
(buffer-enable-undo (current-buffer)) (buffer-enable-undo (current-buffer))
(run-hooks 'Info-edit-mode-hook)) (run-hooks 'Info-edit-mode-hook))
...@@ -1588,8 +1587,7 @@ Allowed only if variable `Info-enable-edit' is non-nil." ...@@ -1588,8 +1587,7 @@ Allowed only if variable `Info-enable-edit' is non-nil."
(setq mode-name "Info") (setq mode-name "Info")
(Info-set-mode-line) (Info-set-mode-line)
(setq buffer-read-only t) (setq buffer-read-only t)
;; Make mode line update. (force-mode-line-update)
(set-buffer-modified-p (buffer-modified-p))
(and (marker-position Info-tag-table-marker) (and (marker-position Info-tag-table-marker)
(buffer-modified-p) (buffer-modified-p)
(message "Tags may have changed. Use Info-tagify if necessary"))) (message "Tags may have changed. Use Info-tagify if necessary")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment