diff options
author | stardiviner <numbchild@gmail.com> | 2018-04-02 13:47:28 +0800 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-04-14 18:21:59 +0200 |
commit | 2a315ab59d3365bb3e1150d763f4094d95041411 (patch) | |
tree | 48fd0cbc4ec7e8449d5f83007d4712379dd76413 | |
parent | 46d841d064cd7de4d918abe5d61cec980a061f24 (diff) | |
download | org-mode-2a315ab59d3365bb3e1150d763f4094d95041411.tar.gz |
ob-clojure-literate: Handle no :file specified file is nil case
* ob-clojure-literate.el (ob-clojure-literate-inject-code): Handle
no :file specified file is nil case.
-rw-r--r-- | contrib/lisp/ob-clojure-literate.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/lisp/ob-clojure-literate.el b/contrib/lisp/ob-clojure-literate.el index 0c92857..5dec2ad 100644 --- a/contrib/lisp/ob-clojure-literate.el +++ b/contrib/lisp/ob-clojure-literate.el @@ -265,7 +265,7 @@ Then you need to assign image variable to this :file value like: (directory (and dir (file-name-as-directory (expand-file-name dir)))) (result-type (cdr (assq :results params))) (file (cdr (assq :file params))) - (file-name (file-name-base file)) + (file-name (and file (file-name-base file))) ;; TODO: future support `:graphics-file' to avoid collision. (graphics-result (member "graphics" (cdr (assq :result-params params)))) ;; (graphics-file (cdr (assq :graphics-file params))) |