Return the depth to which a statement is nested in the outline.
Point must be at the beginning of a header line.
This is actually the length of whatever outline-regexp matches." (byte-code "Êˋ!È´ˆ!˜ˆ!Z)Ç" [outline-regexp looking-at match-end 0 match-beginning] 5))
(defun outline-next-preface nil "\
Skip forward to just before the next heading line." (byte-code "´ˆ˜Qˋ¯#Ä ˘˙!bÈh¨>Ä ²˚!Ç" [outline-regexp nil re-search-forward "[
Move to the next (possibly invisible) heading line." (interactive) (byte-code "ˋÈ´ˆ˜Qˋ¯#Ä ˘˙!TbÇ" [outline-regexp nil re-search-forward "[
]\\(" "\\)" move match-beginning 0] 4))
(defun outline-back-to-heading nil "\
Move to previous (possibly invisible) heading line,
or to beginning of this line if it is a heading line." (byte-code "´ Ȉ Å ˜¯˘Qˋ˙#Ç" [outline-regexp nil beginning-of-line outline-on-heading-p re-search-backward "^\\(" "\\)" move] 6))
(defun outline-on-heading-p nil "\
Return T if point is on a header line." (byte-code "Êˋ Èh´=Ä ˆ!)Ç" [outline-regexp beginning-of-line 10 looking-at] 3))
(defun outline-next-visible-heading (arg) "\
Move to the next visible heading line.
With argument, repeats or can move backward if negative.
A heading line is one that starts with a `*' (or that outline-regexp matches)." (interactive "p") (byte-code "´ÈˆW ˜ Á ¯ È˘˙ ¨Q´´$Ș Ç" [arg outline-regexp nil 0 beginning-of-line end-of-line re-search-forward "^\\(" "\\)"] 7))
(defun outline-previous-visible-heading (arg) "\
Move to the previous heading line.
With argument, repeats or can move forward if negative.
A heading line is one that starts with a `*' (or that outline-regexp matches)." (interactive "p") (byte-code "ˋÈ´[!Ç" [arg nil outline-next-visible-heading] 2))
(defun outline-flag-region (from to flag) "\
Hides or shows lines from FROM to TO, according to FLAG.
If FLAG is `\\n' (newline character) then text is shown,
while if FLAG is `\\^M' (control-M) the text is hidden." (byte-code "¯ ˘Î˙
¨U ²Á ¨˜%))Ç" [modp from to flag t buffer-modified-p ((byte-code "ˋ!Ç" [modp set-buffer-modified-p] 2)) subst-char-in-region 10 13] 7))
(defun hide-entry nil "\
Hide the body directly following this heading." (interactive) (byte-code "¹Èˋ ÈÊ´`ˆ È`˜#)Ç" [nil outline-back-to-heading outline-flag-region outline-next-preface 13] 6))
(defun show-entry nil "\
Show the body directly following this heading." (interactive) (byte-code "¹ÈÊˋ`´ È`ˆ#)Ç" [nil outline-flag-region outline-next-preface 10] 5))
(defun hide-body nil "\
Hide all of buffer except headings." (interactive) (byte-code "¹Èˋed\"Ç" [nil hide-region-body] 3))
(defun hide-region-body (start end) "\
Hide all body lines in the region, but not headings." (byte-code "ÊÌ´ \"ÈebÈm?Ä. ˆ`˜ È`¯#Èm?Ä* ˘˙¨!Â( ²Á) ˚!ÈÁ