From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Dec 1993 04:47:13 +0000 (+0000)
Subject: (outline-minor-mode): When turning off the mode, turn ^Ms back to \n's.
X-Git-Tag: emacs-19.34~10545
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=85111db572aa43349446931242f239ee6f6e1126;p=emacs.git

(outline-minor-mode): When turning off the mode, turn ^Ms back to \n's.
(outline-mode): Set change-major-mode-hook.
---

diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el
index 2111c76ccd1..4f891e125eb 100644
--- a/lisp/textmodes/ooutline.el
+++ b/lisp/textmodes/ooutline.el
@@ -162,6 +162,7 @@ Turning on outline mode calls the value of `text-mode-hook' and then of
   (make-local-variable 'paragraph-separate)
   (setq paragraph-separate (concat paragraph-separate "\\|^\\("
 				   outline-regexp "\\)"))
+  (add-hooks 'change-major-mode-hook 'show-all)
   (run-hooks 'text-mode-hook 'outline-mode-hook))
 
 (defvar outline-minor-mode-prefix "\C-c"
@@ -195,6 +196,9 @@ See the command `outline-mode' for more information on this mode."
 	(setq selective-display t)
 	(run-hooks 'outline-minor-mode-hook))
     (setq selective-display nil))
+  ;; 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)))
 
 (defvar outline-level 'outline-level