Browse Source

Merge branch 'maint'

Nicolas Goaziou 4 years ago
1 changed files with 13 additions and 1 deletions
  1. 13 1

+ 13 - 1

@@ -290,6 +290,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
@@ -2961,7 +2972,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)