Fix #4010: respect custom org-export-async-init-file
This commit is contained in:
parent
2e476de446
commit
a835be1c40
1 changed files with 8 additions and 7 deletions
|
@ -483,13 +483,14 @@ the exported output (i.e. formatters)."
|
||||||
:around #'org-export-to-file
|
:around #'org-export-to-file
|
||||||
(if (not org-export-in-background)
|
(if (not org-export-in-background)
|
||||||
(apply orig-fn args)
|
(apply orig-fn args)
|
||||||
(setq org-export-async-init-file (make-temp-file "doom-org-async-export"))
|
(let ((user-init-file (or org-export-async-init-file user-init-file)))
|
||||||
(with-temp-file org-export-async-init-file
|
(setq org-export-async-init-file (make-temp-file "doom-org-async-export"))
|
||||||
(prin1 `(progn (setq org-export-async-debug ,debug-on-error
|
(with-temp-file org-export-async-init-file
|
||||||
load-path ',load-path)
|
(prin1 `(progn (setq org-export-async-debug ,debug-on-error
|
||||||
(load ,user-init-file nil t))
|
load-path ',load-path)
|
||||||
(current-buffer)))
|
(load ,user-init-file nil t))
|
||||||
(apply orig-fn args))))
|
(current-buffer)))
|
||||||
|
(apply orig-fn args)))))
|
||||||
|
|
||||||
|
|
||||||
(defun +org-init-habit-h ()
|
(defun +org-init-habit-h ()
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue