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 | 2c609f537f34ad51999d2d50a9663d73029b348b (patch) | |
| tree | 0cd259d453fdce12d10c4fd8994575066a2e7bb2 | |
| parent | 1cd3732c0aee222433694aaa3be2f3536d0d983e (diff) | |
| download | emacs-2c609f537f34ad51999d2d50a9663d73029b348b.tar.gz | |
(Info-edit-mode, Info-cease-edit): Use force-mode-line-update.
| -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"))) |