Browse Source

org-export: Small clean-up

Nicolas Goaziou 7 years ago
parent
commit
7e466ea883
1 changed files with 5 additions and 3 deletions
  1. 5 3
      contrib/lisp/org-export.el

+ 5 - 3
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))