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.
|
;; datetree archives don't need so much spacing.
|
||||||
(replace-match (if datetree-date "\n" "\n\n"))))
|
(replace-match (if datetree-date "\n" "\n\n"))))
|
||||||
;; No specific heading, just go to end of file.
|
;; 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
|
;; Paste
|
||||||
(org-paste-subtree (org-get-valid-level level (and heading 1)))
|
(org-paste-subtree (org-get-valid-level level (and heading 1)))
|
||||||
;; Shall we append inherited tags?
|
;; Shall we append inherited tags?
|
||||||
|
|
Loading…
Reference in New Issue