diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2013-09-19 05:05:56 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2013-09-19 05:05:56 +0200 |
commit | b698fc2b57d65d6311587f5a27e3d7e76328610f (patch) | |
tree | d6892fb7b3be1ef3e8087d396d17d1ac7e10feb6 | |
parent | cf6e54e90bbf2702b7aa5596446993c619604b40 (diff) | |
download | org-mode-b698fc2b57d65d6311587f5a27e3d7e76328610f.tar.gz |
Fix incorrect funtion call
* lisp/ob-latex.el (org-babel-execute:latex): Call `file-name-sans-extension'
instead of `file-base-name'.
-rw-r--r-- | lisp/ob-latex.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ob-latex.el b/lisp/ob-latex.el index f9216e1..edc9fe8 100644 --- a/lisp/ob-latex.el +++ b/lisp/ob-latex.el @@ -169,7 +169,8 @@ This function is called by `org-babel-execute-src-block'." ((file-exists-p (concat (file-name-sans-extension tex-file) ".html")) (if (string-match "\\.html$" out-file) (shell-command "mv %s %s" - (concat (file-name-base tex-file) ".html") + (concat (file-name-sans-extension tex-file) + ".html") out-file) (error "HTML file produced but SVG file requested."))))) ((string-match "\\.\\([^\\.]+\\)$" out-file) |