ob-lilypond.el (ly-process-basic): Bugfix, don't use `pcase'
authorBastien Guerry <bzg@altern.org>
Thu, 31 Jan 2013 10:17:18 +0000 (11:17 +0100)
committerBastien Guerry <bzg@altern.org>
Thu, 31 Jan 2013 10:17:18 +0000 (11:17 +0100)
* ob-lilypond.el (ly-process-basic): Bugfix, don't use
`pcase'.

Thanks to Achim Gratz for suggesting this.

lisp/ob-lilypond.el

index 8b144d8..07ea184 100644 (file)
@@ -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)
       " "