diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-11 00:47:55 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-11 00:47:55 +0100 |
commit | 6e88bf07d1f23cf59038744f620fb3056cf0dd63 (patch) | |
tree | 8a6bb2269b10239abe996005318e4bf18138015a | |
parent | 07ee690dce504c6082d5ebbe90e6cf4478e07586 (diff) | |
download | org-mode-6e88bf07d1f23cf59038744f620fb3056cf0dd63.tar.gz |
org-archive: Speed-up archiving subtrees
* lisp/org-archive.el (org-toggle-archive-tag): Use `org-flag-subtree',
which is much faster than outline-hide-subtree'.
Reported-by: Michael Ziems <michael.ziems@xiron.de>
<http://permalink.gmane.org/gmane.emacs.orgmode/105005>
-rw-r--r-- | lisp/org-archive.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-archive.el b/lisp/org-archive.el index 6f5a595..4c6a8c3 100644 --- a/lisp/org-archive.el +++ b/lisp/org-archive.el @@ -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 (outline-hide-subtree))) + (when set (org-flag-subtree t))) (and set (beginning-of-line 1)) (message "Subtree %s" (if set "archived" "unarchived")))))) |