diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-08-24 10:44:05 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-08-24 10:44:05 +0200 |
commit | 7e466ea8830a92a9c4a09c810db7b1261a159542 (patch) | |
tree | c1ed3cd36ba44aa944cf31b6678066ef48e8151a | |
parent | 095f9322e5aaf6907f92ade78260ae4d802c86cb (diff) | |
download | org-mode-7e466ea8830a92a9c4a09c810db7b1261a159542.tar.gz |
org-export: Small clean-up
-rw-r--r-- | contrib/lisp/org-export.el | 8 |
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)) |