|
|
|
@ -1976,7 +1976,7 @@ Essentially a much simplified version of `next-line'." |
|
|
|
(error (goto-char (point-min)))) |
|
|
|
(error (goto-char (point-min)))) |
|
|
|
t) |
|
|
|
t) |
|
|
|
(looking-at outline-regexp)) |
|
|
|
(looking-at outline-regexp)) |
|
|
|
(show-branches) |
|
|
|
(outline-show-branches) |
|
|
|
(if (bobp) (throw 'exit nil)))) |
|
|
|
(if (bobp) (throw 'exit nil)))) |
|
|
|
(outshine--cycle-message "CONTENTS...done")) |
|
|
|
(outshine--cycle-message "CONTENTS...done")) |
|
|
|
(setq |
|
|
|
(setq |
|
|
|
@ -1984,7 +1984,7 @@ Essentially a much simplified version of `next-line'." |
|
|
|
outshine-current-buffer-visibility-state 'contents)) |
|
|
|
outshine-current-buffer-visibility-state 'contents)) |
|
|
|
((eq last-command 'outshine-cycle-toc) |
|
|
|
((eq last-command 'outshine-cycle-toc) |
|
|
|
;; We just showed the table of contents - now show everything |
|
|
|
;; We just showed the table of contents - now show everything |
|
|
|
(show-all) |
|
|
|
(outline-show-all) |
|
|
|
(outshine--cycle-message "SHOW ALL") |
|
|
|
(outshine--cycle-message "SHOW ALL") |
|
|
|
(setq |
|
|
|
(setq |
|
|
|
this-command 'outshine-cycle-showall |
|
|
|
this-command 'outshine-cycle-showall |
|
|
|
@ -2001,7 +2001,7 @@ Essentially a much simplified version of `next-line'." |
|
|
|
(looking-at outline-regexp)) |
|
|
|
(looking-at outline-regexp)) |
|
|
|
(max 1 (funcall outline-level))) |
|
|
|
(max 1 (funcall outline-level))) |
|
|
|
(t 1)))) |
|
|
|
(t 1)))) |
|
|
|
(hide-sublevels toplevel)) |
|
|
|
(outline-hide-sublevels toplevel)) |
|
|
|
(outshine--cycle-message "OVERVIEW") |
|
|
|
(outshine--cycle-message "OVERVIEW") |
|
|
|
(setq |
|
|
|
(setq |
|
|
|
this-command 'outshine-cycle-overview |
|
|
|
this-command 'outshine-cycle-overview |
|
|
|
@ -2024,18 +2024,18 @@ Essentially a much simplified version of `next-line'." |
|
|
|
(outshine--cycle-message "EMPTY ENTRY")) |
|
|
|
(outshine--cycle-message "EMPTY ENTRY")) |
|
|
|
((>= eol eos) |
|
|
|
((>= eol eos) |
|
|
|
;; Entire subtree is hidden in one line: open it |
|
|
|
;; Entire subtree is hidden in one line: open it |
|
|
|
(show-entry) |
|
|
|
(outline-show-entry) |
|
|
|
(show-children) |
|
|
|
(outline-show-children) |
|
|
|
(outshine--cycle-message "CHILDREN") |
|
|
|
(outshine--cycle-message "CHILDREN") |
|
|
|
(setq |
|
|
|
(setq |
|
|
|
this-command 'outshine-cycle-children)) |
|
|
|
this-command 'outshine-cycle-children)) |
|
|
|
((eq last-command 'outshine-cycle-children) |
|
|
|
((eq last-command 'outshine-cycle-children) |
|
|
|
;; We just showed the children, now show everything. |
|
|
|
;; We just showed the children, now show everything. |
|
|
|
(show-subtree) |
|
|
|
(outline-show-subtree) |
|
|
|
(outshine--cycle-message "SUBTREE")) |
|
|
|
(outshine--cycle-message "SUBTREE")) |
|
|
|
(t |
|
|
|
(t |
|
|
|
;; Default action: hide the subtree. |
|
|
|
;; Default action: hide the subtree. |
|
|
|
(hide-subtree) |
|
|
|
(outline-hide-subtree) |
|
|
|
(outshine--cycle-message "FOLDED"))))) |
|
|
|
(outshine--cycle-message "FOLDED"))))) |
|
|
|
|
|
|
|
|
|
|
|
;; TAB emulation |
|
|
|
;; TAB emulation |
|
|
|
|