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?à* ╞╟╚!â( ╔é) ╩!êé