From 85111db572aa43349446931242f239ee6f6e1126 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 23 Dec 1993 04:47:13 +0000 Subject: [PATCH] (outline-minor-mode): When turning off the mode, turn ^Ms back to \n's. (outline-mode): Set change-major-mode-hook. --- lisp/textmodes/ooutline.el | 4 ++++ 1 file changed, 4 insertions(+) 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 -- 2.39.5