# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756622033 0
# Node ID a2f8f9c4e29b162a66f4c3cf8298df92c6e5605f
# Parent  1a32c9c9cfbb7a7932f38990357f003cdc0ae6e3
(outline-minor-mode): When turning off the mode, turn ^Ms back to \n's.
(outline-mode): Set change-major-mode-hook.

diff -r 1a32c9c9cfbb -r a2f8f9c4e29b lisp/textmodes/ooutline.el
--- a/lisp/textmodes/ooutline.el	Thu Dec 23 04:46:18 1993 +0000
+++ b/lisp/textmodes/ooutline.el	Thu Dec 23 04:47:13 1993 +0000
@@ -162,6 +162,7 @@
   (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 @@
 	(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