(foldout-hide-flag, foldout-show-flag): New variables.

(foldout-exit-fold): Use those variables.

diff --git a/lisp/foldout.el b/lisp/foldout.el
index f89c9c2877180a79a7f2dab91561cb830e34038d..ad9bfe2c2ecfec633ac4b14369ef8492e6dc4d07 100644 (file)
--- a/lisp/foldout.el
+++ b/lisp/foldout.el
@@ -236,6 +236,15 @@ An end marker of NIL means the fold ends after (point-max).")
       ;; 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))
 \f
 
 (defun foldout-zoom-subtree (&optional exposure)
@@ -358,12 +367,13 @@ exited and text is left visible."
                                  (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