Make a backup of the source file; accidents happen
This commit is contained in:
parent
554b1896b9
commit
f51f51e8a6
|
@ -133,6 +133,7 @@ actions that may undesirably trigger the file watcher.")
|
|||
(start-time (time-to-seconds (current-time)))
|
||||
(org-pandoc-import-transient--currently-processing t))
|
||||
(unless (plist-get file-info :initialised)
|
||||
(copy-file source-file (concat source-file ".backup") nil t)
|
||||
(delete-file org-file) ; to avoid the overwrite prompt
|
||||
(message "Initialising...")
|
||||
(org-pandoc-import-to-org nil source-file org-file t)
|
||||
|
|
Loading…
Reference in New Issue