summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-01-31 11:17:18 +0100
committerBastien Guerry <bzg@altern.org>2013-01-31 11:17:18 +0100
commit7dbe05551dd73beaf9ce8b8d809c9f8e28fc0894 (patch)
treee16cf5b9d063a0e7b6c35c7702d0c4764d96f8d9
parentc17e07e94f5356a5eca352b79a11da82a3eca238 (diff)
downloadorg-mode-7dbe05551dd73beaf9ce8b8d809c9f8e28fc0894.tar.gz
ob-lilypond.el (ly-process-basic): Bugfix, don't use `pcase'
* ob-lilypond.el (ly-process-basic): Bugfix, don't use `pcase'. Thanks to Achim Gratz for suggesting this.
-rw-r--r--lisp/ob-lilypond.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ob-lilypond.el b/lisp/ob-lilypond.el
index 8b144d8..07ea184 100644
--- a/lisp/ob-lilypond.el
+++ b/lisp/ob-lilypond.el
@@ -152,11 +152,11 @@ specific arguments to =org-babel-tangle="
" -dbackend=eps "
"-dno-gs-load-fonts "
"-dinclude-eps-fonts "
- (pcase (file-name-extension out-file)
- ("pdf" "--pdf ")
- ("ps" "--ps ")
- ("png" "--png ")
- (t "--png "))
+ (or (cdr (assoc (file-name-extension "test.pdf")
+ '(("pdf" . "--pdf ")
+ ("ps" . "--ps ")
+ ("png" . "--png "))))
+ "--png ")
"--output="
(file-name-sans-extension out-file)
" "