summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2012-10-27 00:02:28 +0200
committerNicolas Goaziou <n.goaziou@gmail.com>2012-10-27 00:02:52 +0200
commit00eaa4dc97daaf608e0ad3a20a4e79317d480a16 (patch)
tree830b450b28e396eb516b6a92318616f051c3eb0f
parenta29de08ff7c730f7aba3a66a1e361ca0a74fe23c (diff)
downloadorg-mode-00eaa4dc97daaf608e0ad3a20a4e79317d480a16.tar.gz
org-export: Fix error when exporting buffers not visiting a file
* contrib/lisp/org-export.el (org-export-output-file-name): Do not return an error when exported buffer isn't visiting a file.
-rw-r--r--contrib/lisp/org-export.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el
index 7b185d4..4c89c66 100644
--- a/contrib/lisp/org-export.el
+++ b/contrib/lisp/org-export.el
@@ -2675,7 +2675,8 @@ determined."
"EXPORT_FILE_NAME" t))
;; File name may be extracted from buffer's associated
;; file, if any.
- (file-name-nondirectory (buffer-file-name (buffer-base-buffer)))
+ (let ((visited-file (buffer-file-name (buffer-base-buffer))))
+ (and visited-file (file-name-nondirectory visited-file)))
;; Can't determine file name on our own: Ask user.
(let ((read-file-name-function
(and org-completion-use-ido 'ido-read-file-name)))