diff options
| author | Sébastien Delafond <sdelafond@gmail.com> | 2016-02-10 18:54:48 +0100 |
|---|---|---|
| committer | Sébastien Delafond <sdelafond@gmail.com> | 2016-02-10 18:54:48 +0100 |
| commit | 8d8ea67656b95d8528b6cd9b43b2d53b847412b0 (patch) | |
| tree | d5aa3d72b5904dc9bace013bbb7cd530191fe219 /lisp/org-archive.el | |
| parent | f7ab8b6645e5b81dd3b1df053a3bf41b279696f4 (diff) | |
Imported Upstream version 8.3.3
Diffstat (limited to 'lisp/org-archive.el')
| -rw-r--r-- | lisp/org-archive.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org-archive.el b/lisp/org-archive.el index 2919fda..170bfd7 100644 --- a/lisp/org-archive.el +++ b/lisp/org-archive.el @@ -317,7 +317,7 @@ this heading." org-odd-levels-only tr-org-odd-levels-only))) (goto-char (point-min)) - (show-all) + (outline-show-all) (if (and heading (not (and datetree-date (not datetree-subheading-p)))) (progn (if (re-search-forward @@ -332,7 +332,7 @@ this heading." (insert (if datetree-date "" "\n") heading "\n") (end-of-line 0)) ;; Make the subtree visible - (show-subtree) + (outline-show-subtree) (if org-archive-reversed-order (progn (org-back-to-heading t) @@ -454,7 +454,7 @@ sibling does not exist, it will be created at the end of the subtree." (format-time-string (substring (cdr org-time-stamp-formats) 1 -1))) (outline-up-heading 1 t) - (hide-subtree) + (outline-hide-subtree) (org-cycle-show-empty-lines 'folded) (goto-char pos))) (org-reveal) @@ -565,7 +565,7 @@ the children that do not contain any open TODO items." (save-excursion (org-back-to-heading t) (setq set (org-toggle-tag org-archive-tag)) - (when set (hide-subtree))) + (when set (outline-hide-subtree))) (and set (beginning-of-line 1)) (message "Subtree %s" (if set "archived" "unarchived")))))) |