forked from mirrors/org-mode
ox: Re-introduce `org-export-current-backend' for compatibility
* lisp/ox.el (org-export-current-backend): New variable. (org-export-as): Use new variable. Thanks to Christophe Rhodes for providing a preliminary patch.
This commit is contained in:
parent
216521ea2b
commit
f5161671ce
14
lisp/ox.el
14
lisp/ox.el
|
@ -301,6 +301,17 @@ and its CDR is a list of export options.")
|
|||
This marker will be used with `C-u C-c C-e' to make sure export repetition
|
||||
uses the same subtree if the previous command was restricted to a subtree.")
|
||||
|
||||
;; For compatibility with Org < 8
|
||||
(defvar org-export-current-backend nil
|
||||
"Name, if any, of the back-end used during an export process.
|
||||
|
||||
Its value is a symbol such as `html', `latex', `ascii', or nil if
|
||||
the back-end is anonymous (see `org-export-create-backend') or if
|
||||
there is no export process in progress.
|
||||
|
||||
It can be used to teach Babel blocks how to act differently
|
||||
according to the back-end used.")
|
||||
|
||||
|
||||
;;; User-configurable Variables
|
||||
;;
|
||||
|
@ -2925,7 +2936,8 @@ Return code as a string."
|
|||
(narrow-to-region (point) (point-max))))
|
||||
;; Initialize communication channel with original buffer
|
||||
;; attributes, unavailable in its copy.
|
||||
(let* ((info (org-combine-plists
|
||||
(let* ((org-export-current-backend backend)
|
||||
(info (org-combine-plists
|
||||
(list :export-options
|
||||
(delq nil
|
||||
(list (and subtreep 'subtree)
|
||||
|
|
Loading…
Reference in New Issue