From: Karl Heuer <kwzh@gnu.org>
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.