(outline-minor-mode): Use force-mode-line-update.

[gnu-emacs] / lisp / textmodes / ooutline.el

diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el
index 8caf9ff354663212116c82596e5f8b9086fc436f..e3752c6c75ce61aae71058cd689da86c13ec582a 100644 (file)
--- 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))
 \f
 (defvar outline-level 'outline-level
   "Function of no args to compute a header's nesting level in an outline.