diff options
author | Marco Wahl <marcowahlsoft@gmail.com> | 2018-06-07 15:52:26 +0200 |
---|---|---|
committer | Marco Wahl <marcowahlsoft@gmail.com> | 2018-06-07 15:52:26 +0200 |
commit | 842002f9f7e3246cc285cc9bca1adb715120438d (patch) | |
tree | a8d61fc6c8f305158a0d042939d9f8af8db2db6a | |
parent | cecbe4ec8fc1b11bcf1d7a315ddb8397b0820b35 (diff) | |
download | org-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.el | 3 |
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. |