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ÁÅ# ÆÇ!bhÈ> ÉÊ!" [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 "Â \"ebm? . Ã`Ä `Å#m? * ÆÇÈ!( É) Ê!
))" [start end narrow-to-region outline-flag-region outline-next-preface 13 forward-char looking-at "[
][
]" 2 1] 7))
(defun show-all nil "\
Show all of the text in the buffer." (interactive) (byte-code "ÀÁedÂ#" [nil outline-flag-region 10] 4))
(defun hide-subtree nil "\
Hide everything after this heading at deeper levels." (interactive) (byte-code "ÀÁÂ!" [nil outline-flag-subtree 13] 2))
(defun hide-leaves nil "\
Hide all body after this heading at deeper levels." (interactive) (byte-code "ÀÁ Â`Ã `\"" [nil outline-back-to-heading hide-region-body outline-end-of-subtree] 5))
(defun show-subtree nil "\
Show everything after this heading at deeper levels." (interactive) (byte-code "ÀÁÂ!" [nil outline-flag-subtree 10] 2))
ÈÉ!hÊ> 2 ÈÉ!+" [opoint first t level nil beginning-of-line outline-level outline-next-heading forward-char -1 (10 13)] 7))
(defun show-branches nil "\
Show all subheadings of this heading, but not their bodies." (interactive) (byte-code "ÀÁÂ!" [nil show-children 1000] 2))
(defun show-children (&optional level) "\
Show all direct subheadings of this heading. Optional LEVEL specifies
how many levels below the current level should be shown." (interactive "p") (byte-code "Â ÃÄ Å \\Æ`Ç `T\"ebm? , È m? S Å X O `TÉÊ!hË> G ÉÊ!Ì` Í#))\" ))" [level end nil 1 beginning-of-line outline-level narrow-to-region outline-end-of-subtree outline-next-heading forward-char -1 (10 13) outline-flag-region 10] 13))
(defun outline-up-heading (arg) "\
Move to the heading line of which the present line is a subheading.
Move forward to the ARG'th subheading from here of the same level as the
present one. It stops at the first and last subheadings of a superior heading." (interactive "p") (byte-code "ÂÃ ÄV * Å ) bS% ÄÆÇ!) " [arg point-to-move-to nil outline-back-to-heading 0 outline-get-next-sibling error ""] 5))
(defun outline-get-next-sibling nil "\
Position the point at the next heading of the same level,
and return that position or nil if it cannot be found." (byte-code " ÃÄ! V m? ÃÄ!  W& Á' `)" [level nil outline-level outline-next-visible-heading 1] 7))
(defun outline-backward-same-level (arg) "\
Move backward to the ARG'th subheading from here of the same level as the
present one. It stops at the first and last subheadings of a superior heading." (interactive "p") (byte-code "ÂÃ ÄV * Å ) bS% ÄÆÇ!) " [arg point-to-move-to nil outline-back-to-heading 0 outline-get-last-sibling error ""] 5))
(defun outline-get-last-sibling nil "\
Position the point at the previous heading of the same level,
and return that position or nil if it cannot be found." (byte-code " ÃÄ! V o? ÃÄ!  W& Á' `)" [level nil outline-level outline-previous-visible-heading 1] 7))
