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)))) (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

Loading…
Cancel
Save