diff options
author | Matt Lundin <mclundin@gmail.com> | 2017-11-25 09:26:15 -0600 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-11-26 10:52:31 +0100 |
commit | b186d1d7236c0dc397eadeb004c9a17eaffd3aab (patch) | |
tree | c2dda4a6ec0524e651f40bcc540c5a17a5b7f2c8 | |
parent | 26c2ad99cfc2c7776ea58aa2fbb60fbd872f2372 (diff) | |
download | org-mode-b186d1d7236c0dc397eadeb004c9a17eaffd3aab.tar.gz |
Do not save target buffer after archiving subtree
* lisp/org-archive.el: (org-archive-subtree) Do not save buffer after
each archive. Saving the archive buffer after archiving each
subtree results in substantial slowdown and many writes to disk when
archiving an active region. This brings the behavior of
org-archive-subtree into line with org-refile, which does not save
the target buffer after refiling.
-rw-r--r-- | lisp/org-archive.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/org-archive.el b/lisp/org-archive.el index b2e2178..37c5d6f 100644 --- a/lisp/org-archive.el +++ b/lisp/org-archive.el @@ -381,10 +381,7 @@ direct children of this heading." (point) (concat "ARCHIVE_" (upcase (symbol-name item))) value)))) - (widen) - ;; Save and kill the buffer, if it is not the same - ;; buffer. - (unless (eq this-buffer buffer) (save-buffer))))) + (widen)))) ;; Here we are back in the original buffer. Everything seems ;; to have worked. So now run hooks, cut the tree and finish ;; up. |