comparison lisp/foldout.el @ 15984:111178229e50

(foldout-hide-flag, foldout-show-flag): New variables. (foldout-exit-fold): Use those variables.

15983:9a41bae14122

	  (error "Can't find outline-minor-mode in minor-mode-alist"))

      ;; slip our fold announcement into the list
      (setcdr outl-entry (nconc foldout-entry (cdr outl-entry)))
      ))


(defun foldout-zoom-subtree (&optional exposure)
  "Open the subtree under the current heading and narrow to it.

					  (forward-char -1))
				      (point))
				  (point-max))))
	    ;; hide the subtree
	    (if hide-fold
		(outline-flag-region start-marker end-of-subtree ?\^M))

	    ;; make sure the next heading is exposed
	    (if end-marker
		(outline-flag-region end-of-subtree
				     beginning-of-heading ?\n))
	    ))

      ;; zap the markers so they don't slow down editing
      (set-marker start-marker nil)
      (if end-marker (set-marker end-marker nil))

15984:111178229e50

	  (error "Can't find outline-minor-mode in minor-mode-alist"))

      ;; 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)
  "Open the subtree under the current heading and narrow to it.

					  (forward-char -1))
				      (point))
				  (point-max))))
	    ;; hide the subtree
	    (if hide-fold
		(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
				     foldout-show-flag))
	    ))

      ;; zap the markers so they don't slow down editing
      (set-marker start-marker nil)
      (if end-marker (set-marker end-marker nil))