summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2012-08-24 10:44:05 +0200
committerNicolas Goaziou <n.goaziou@gmail.com>2012-08-24 10:44:05 +0200
commit7e466ea8830a92a9c4a09c810db7b1261a159542 (patch)
treec1ed3cd36ba44aa944cf31b6678066ef48e8151a
parent095f9322e5aaf6907f92ade78260ae4d802c86cb (diff)
downloadorg-mode-7e466ea8830a92a9c4a09c810db7b1261a159542.tar.gz
org-export: Small clean-up
-rw-r--r--contrib/lisp/org-export.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el
index 891424c..4f01b7e 100644
--- a/contrib/lisp/org-export.el
+++ b/contrib/lisp/org-export.el
@@ -2508,7 +2508,6 @@ Return the updated communication channel."
;; why file inclusion should be done before any structure can be
;; associated to the file, that is before parsing.
-(defvar org-current-export-file) ; Dynamically scoped
(defun org-export-as
(backend &optional subtreep visible-only body-only ext-plist noexpand)
"Transcode current Org buffer into BACKEND code.
@@ -2560,9 +2559,12 @@ Return code as a string."
(org-export-with-current-buffer-copy
(unless noexpand
(org-export-expand-include-keyword)
- ;; Setting `org-current-export-file' is
+ ;; TODO: Setting `org-current-export-file' is
;; required by Org Babel to properly resolve
- ;; noweb references.
+ ;; noweb references. Once "org-exp.el" is
+ ;; removed, modify
+ ;; `org-export-blocks-preprocess' so it accepts
+ ;; the value as an argument instead.
(let ((org-current-export-file buf))
(org-export-blocks-preprocess)))
(goto-char (point-min))