Replace obsolete commands in outshine-cycle function

This resolves obsolete warnings from the byte compiler
master
yuhan0 7 years ago
parent 9a8021f174
commit eadea956d7
  1. 14
      outshine.el

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

Loading…
Cancel
Save