X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=elisp%2Flilypond-mode.el;h=98b9401150d01844c71b405f42f8cc627ae5a29a;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=d9dcc7be472ae295dd4f9d843e8e506d4a9319e9;hpb=c5f7df91574f689166f3cc7f4ca170ef8909826b;p=lilypond.git

diff --git a/elisp/lilypond-mode.el b/elisp/lilypond-mode.el
index d9dcc7be47..98b9401150 100644
--- a/elisp/lilypond-mode.el
+++ b/elisp/lilypond-mode.el
@@ -1,7 +1,7 @@
 ;;;; lilypond-mode.el -- Major mode for editing GNU LilyPond music scores
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;  
-;;;; Copyright (C) 1999--2012 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; Copyright (C) 1999--2015 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;; Changed 2001--2003 Heikki Junes <heikki.junes@hut.fi>
 ;;;;    * Add PS-compilation, PS-viewing and MIDI-play (29th Aug 2001)
 ;;;;    * Keyboard shortcuts (12th Sep 2001)
@@ -624,14 +624,15 @@ Must be the car of an entry in `LilyPond-command-alist'."
 	       (l (split-file-name file))
 	       (dir (car l))
 	       (base (cadr l)))
-	  (LilyPond-command-expand
-	   (concat (substring string 0 b)
-		   (shell-quote-argument (concat dir base))
-		   (let ((entry (assoc (substring string b e)
-				       LilyPond-expand-alist)))
-		     (if entry (cdr entry) ""))
-		   (substring string e))
-	   file))
+	  (concat (substring string 0 b)
+		  (shell-quote-argument (concat dir base))
+		  (LilyPond-command-expand
+		   (concat
+		    (let ((entry (assoc (substring string b e)
+					LilyPond-expand-alist)))
+		      (if entry (cdr entry) ""))
+		    (substring string e))
+		   file)))
       string)))
 
 (defun LilyPond-shell-process (name buffer command)