|
@@ -3352,7 +3352,7 @@ If AGENDA-BUFFER-NAME, use this as the buffer name for the agenda to write."
|
|
content)))
|
|
content)))
|
|
(find-file file)
|
|
(find-file file)
|
|
(erase-buffer)
|
|
(erase-buffer)
|
|
- (mapcar (lambda (s) (org-paste-subtree 1 s)) (reverse content))
|
|
+ (dolist (s content) (org-paste-subtree 1 s))
|
|
(write-file file)
|
|
(write-file file)
|
|
(kill-buffer (current-buffer))
|
|
(kill-buffer (current-buffer))
|
|
(message "Org file written to %s" file)))
|
|
(message "Org file written to %s" file)))
|