diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-02-03 17:56:51 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-02-03 17:56:51 +0100 |
commit | 4b201ab66dfc035d49b7d7e43649406a7f181346 (patch) | |
tree | 6b49282ff9b76204dd12b199e7690db0c29b6646 | |
parent | 571d26e5ca5ca9cca7ad1dd7eb91a741f9d3f2e4 (diff) | |
download | org-mode-4b201ab66dfc035d49b7d7e43649406a7f181346.tar.gz |
org-export: Fix error when exporting a buffer with a code block
* contrib/lisp/org-export.el (org-export-as): Set a default value for
org-current-export-file.
-rw-r--r-- | contrib/lisp/org-export.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index 64374df..a062a3e 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -1885,7 +1885,8 @@ Return code as a string." (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (org-export-with-current-buffer-copy - (org-export-blocks-preprocess) + (let ((org-current-export-file (current-buffer))) + (org-export-blocks-preprocess)) (org-element-parse-buffer nil visible-only)) backend)))) ;; Initialize the communication system and combine it to INFO. |