Browse Source

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.
Bastien Guerry 5 years ago
parent
commit
7dbe05551d
1 changed files with 5 additions and 5 deletions
  1. 5 5
      lisp/ob-lilypond.el

+ 5 - 5
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)
       " "