forked from mirrors/org-mode
org-archive: Fix archive to datetree
* lisp/org-archive.el (org-archive-subtree): Fix archiving an entry in a date tree before an existing entry in the same month. Reported-by: Klarre N <klarre@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/109614>
This commit is contained in:
parent
966e0bff56
commit
b42b3aaafc
|
@ -339,7 +339,13 @@ this heading."
|
|||
;; datetree archives don't need so much spacing.
|
||||
(replace-match (if datetree-date "\n" "\n\n"))))
|
||||
;; No specific heading, just go to end of file.
|
||||
(goto-char (point-max)) (unless datetree-date (insert "\n")))
|
||||
(goto-char (point-max))
|
||||
;; Subtree narrowing can let the buffer end on
|
||||
;; a headline. `org-paste-subtree' then deletes it.
|
||||
;; To prevent this, make sure visible part of buffer
|
||||
;; always terminates on a new line, while limiting
|
||||
;; number of blank lines in a date tree.
|
||||
(unless (and datetree-date (bolp)) (insert "\n")))
|
||||
;; Paste
|
||||
(org-paste-subtree (org-get-valid-level level (and heading 1)))
|
||||
;; Shall we append inherited tags?
|
||||
|
|
Loading…
Reference in a new issue