diff options
author | Bastien Guerry <bzg@altern.org> | 2013-01-31 11:17:18 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-31 11:17:18 +0100 |
commit | 7dbe05551dd73beaf9ce8b8d809c9f8e28fc0894 (patch) | |
tree | e16cf5b9d063a0e7b6c35c7702d0c4764d96f8d9 | |
parent | c17e07e94f5356a5eca352b79a11da82a3eca238 (diff) | |
download | org-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.el | 10 |
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) " " |