tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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:
Nicolas Goaziou 2013-10-28 18:56:04 +01:00
parent a94501a132
commit 0930a88f04
1 changed files with 25 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
lisp/ox.el
View File

@ -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
(expand-file-name invocation-name invocation-directory) (append
"-Q" "--batch" (list "org-export-process"
"-l" org-export-async-init-file ,proc-buffer
"-l" ,temp-file))) (expand-file-name invocation-name invocation-directory)
"--batch")
(if org-export-async-init-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.