Procházet zdrojové kódy

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.
Marco Wahl před 6 roky
rodič
revize
842002f9f7
1 změnil soubory, kde provedl 1 přidání a 2 odebrání
  1. 1 2
      lisp/org-archive.el

+ 1 - 2
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.