# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 841375076 0
# Node ID 111178229e5003456ae5e1fa74f978981d70cd1a
# Parent  9a41bae14122a71fa72b0acdd76b857db39e306b
(foldout-hide-flag, foldout-show-flag): New variables.
(foldout-exit-fold): Use those variables.

diff -r 9a41bae14122 -r 111178229e50 lisp/foldout.el
--- a/lisp/foldout.el	Fri Aug 30 03:05:22 1996 +0000
+++ b/lisp/foldout.el	Fri Aug 30 03:17:56 1996 +0000
@@ -236,6 +236,15 @@
       ;; slip our fold announcement into the list
       (setcdr outl-entry (nconc foldout-entry (cdr outl-entry)))
       ))
+
+;; outline-flag-region has different `flag' values in outline.el and
+;; noutline.el for hiding and showing text.
+
+(defconst foldout-hide-flag
+  (if (featurep 'noutline) t ?\^M))
+
+(defconst foldout-show-flag
+  (if (featurep 'noutline) nil ?\n))
 
 
 (defun foldout-zoom-subtree (&optional exposure)
@@ -358,12 +367,13 @@
 				  (point-max))))
 	    ;; hide the subtree
 	    (if hide-fold
-		(outline-flag-region start-marker end-of-subtree ?\^M))
+		(outline-flag-region start-marker end-of-subtree
+				     foldout-hide-flag))
 
 	    ;; make sure the next heading is exposed
 	    (if end-marker
-		(outline-flag-region end-of-subtree
-				     beginning-of-heading ?\n))
+		(outline-flag-region end-of-subtree beginning-of-heading
+				     foldout-show-flag))
 	    ))
 
       ;; zap the markers so they don't slow down editing