From: Karl Heuer Date: Tue, 25 Apr 1995 22:27:27 +0000 (+0000) Subject: (outline-minor-mode): Use force-mode-line-update. X-Git-Tag: emacs-19.34~4283 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a57c6a283a22a4fe3480f240384221b7be15a645;p=emacs.git (outline-minor-mode): Use force-mode-line-update. --- diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el index 8caf9ff3546..e3752c6c75c 100644 --- a/lisp/textmodes/ooutline.el +++ b/lisp/textmodes/ooutline.el @@ -249,7 +249,7 @@ See the command `outline-mode' for more information on this mode." ;; When turning off outline mode, get rid of any ^M's. (or outline-minor-mode (outline-flag-region (point-min) (point-max) ?\n)) - (set-buffer-modified-p (buffer-modified-p))) + (force-mode-line-update)) (defvar outline-level 'outline-level "Function of no args to compute a header's nesting level in an outline. diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el index ebface284b0..870a3fe85b6 100644 --- a/lisp/textmodes/outline.el +++ b/lisp/textmodes/outline.el @@ -257,7 +257,7 @@ See the command `outline-mode' for more information on this mode." ;; When turning off outline mode, get rid of any outline hiding. (or outline-minor-mode (show-all)) - (set-buffer-modified-p (buffer-modified-p))) + (force-mode-line-update)) (defvar outline-level 'outline-level "Function of no args to compute a header's nesting level in an outline.