forked from mirrors/org-mode
ox: Change default asynchronous export setup
* lisp/ox.el (org-export-async-init-file): Change default value and allowed values. (org-export-async-start): Apply change to the variable.
This commit is contained in:
parent
a94501a132
commit
0930a88f04
35
lisp/ox.el
35
lisp/ox.el
|
@ -839,15 +839,23 @@ automatically. But you can retrieve them with \\[org-export-stack]."
|
||||||
:package-version '(Org . "8.0")
|
:package-version '(Org . "8.0")
|
||||||
:type 'boolean)
|
:type 'boolean)
|
||||||
|
|
||||||
(defcustom org-export-async-init-file user-init-file
|
(defcustom org-export-async-init-file nil
|
||||||
"File used to initialize external export process.
|
"File used to initialize external export process.
|
||||||
Value must be an absolute file name. It defaults to user's
|
|
||||||
initialization file. Though, a specific configuration makes the
|
Value must be either nil or an absolute file name. When nil, the
|
||||||
process faster and the export more portable."
|
external process is launched like a regular Emacs session,
|
||||||
|
loading user's initialization file and any site specific
|
||||||
|
configuration. If a file is provided, it, and only it, is loaded
|
||||||
|
at start-up.
|
||||||
|
|
||||||
|
Therefore, using a specific configuration makes the process to
|
||||||
|
load faster and the export more portable."
|
||||||
:group 'org-export-general
|
:group 'org-export-general
|
||||||
:version "24.4"
|
:version "24.4"
|
||||||
:package-version '(Org . "8.0")
|
:package-version '(Org . "8.3")
|
||||||
:type '(file :must-match t))
|
:type '(choice
|
||||||
|
(const :tag "Regular startup" nil)
|
||||||
|
(file :tag "Specific start-up file" :must-match t)))
|
||||||
|
|
||||||
(defcustom org-export-dispatch-use-expert-ui nil
|
(defcustom org-export-dispatch-use-expert-ui nil
|
||||||
"Non-nil means using a non-intrusive `org-export-dispatch'.
|
"Non-nil means using a non-intrusive `org-export-dispatch'.
|
||||||
|
@ -5564,12 +5572,17 @@ and `org-export-to-file' for more specialized functions."
|
||||||
(let* ((process-connection-type nil)
|
(let* ((process-connection-type nil)
|
||||||
(,proc-buffer (generate-new-buffer-name "*Org Export Process*"))
|
(,proc-buffer (generate-new-buffer-name "*Org Export Process*"))
|
||||||
(,process
|
(,process
|
||||||
(start-process
|
(apply
|
||||||
"org-export-process" ,proc-buffer
|
#'start-process
|
||||||
|
(append
|
||||||
|
(list "org-export-process"
|
||||||
|
,proc-buffer
|
||||||
(expand-file-name invocation-name invocation-directory)
|
(expand-file-name invocation-name invocation-directory)
|
||||||
"-Q" "--batch"
|
"--batch")
|
||||||
"-l" org-export-async-init-file
|
(if org-export-async-init-file
|
||||||
"-l" ,temp-file)))
|
(list "-Q" "-l" org-export-async-init-file)
|
||||||
|
(list "-l" user-init-file))
|
||||||
|
(list "-l" ,temp-file)))))
|
||||||
;; Register running process in stack.
|
;; Register running process in stack.
|
||||||
(org-export-add-to-stack (get-buffer ,proc-buffer) nil ,process)
|
(org-export-add-to-stack (get-buffer ,proc-buffer) nil ,process)
|
||||||
;; Set-up sentinel in order to catch results.
|
;; Set-up sentinel in order to catch results.
|
||||||
|
|
Loading…
Reference in New Issue