summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarco Wahl <marcowahlsoft@gmail.com>2018-06-07 15:52:26 +0200
committerMarco Wahl <marcowahlsoft@gmail.com>2018-06-07 15:52:26 +0200
commit842002f9f7e3246cc285cc9bca1adb715120438d (patch)
treea8d61fc6c8f305158a0d042939d9f8af8db2db6a
parentcecbe4ec8fc1b11bcf1d7a315ddb8397b0820b35 (diff)
downloadorg-mode-842002f9f7e3246cc285cc9bca1adb715120438d.tar.gz
org-archive: Fix insert of extra blank line at archiving
* lisp/org-archive.el (org-archive-subtree): Remove insertion of extra blank line in case of org-archive-reversed-order.
-rw-r--r--lisp/org-archive.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/org-archive.el b/lisp/org-archive.el
index 00b3db7..94579f6 100644
--- a/lisp/org-archive.el
+++ b/lisp/org-archive.el
@@ -350,8 +350,7 @@ direct children of this heading."
(if org-archive-reversed-order
(progn
(goto-char (point-min))
- (unless (org-at-heading-p) (outline-next-heading))
- (insert "\n") (backward-char 1))
+ (unless (org-at-heading-p) (outline-next-heading)))
(goto-char (point-max))
;; Subtree narrowing can let the buffer end on
;; a headline. `org-paste-subtree' then deletes it.