diff options
author | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:28:58 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:28:58 +0000 |
commit | 436447bd15b2206fa633a918bb3b582c0a5948a5 (patch) | |
tree | 4a874560b3eb8b746e0500d2e4f0247e06ea29e6 /lisp/info.el | |
parent | 3f88ef11f66faf62d1542700b81d7f399272c5c0 (diff) | |
download | emacs-436447bd15b2206fa633a918bb3b582c0a5948a5.tar.gz |
(Info-edit-mode, Info-cease-edit): Use force-mode-line-update.
Diffstat (limited to 'lisp/info.el')
-rw-r--r-- | lisp/info.el | 6 |
1 files changed, 2 insertions, 4 deletions
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"))) |