diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-10-27 00:02:28 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-10-27 00:02:52 +0200 |
commit | 00eaa4dc97daaf608e0ad3a20a4e79317d480a16 (patch) | |
tree | 830b450b28e396eb516b6a92318616f051c3eb0f | |
parent | a29de08ff7c730f7aba3a66a1e361ca0a74fe23c (diff) | |
download | org-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.el | 3 |
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))) |