From 7dbe05551dd73beaf9ce8b8d809c9f8e28fc0894 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 31 Jan 2013 11:17:18 +0100 Subject: [PATCH] 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. --- lisp/ob-lilypond.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/ob-lilypond.el b/lisp/ob-lilypond.el index 8b144d80a..07ea184cc 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) " " -- 2.11.4.GIT