Emacs mode: escape file name special characters in shell commands

diff --git a/elisp/lilypond-mode.el b/elisp/lilypond-mode.el
index 769331fe0336090e0bdc42368981d316528af836..80a3f298ebbcb5dc3ea6bcdb86215e325fb320d0 100644 (file)
--- a/elisp/lilypond-mode.el
+++ b/elisp/lilypond-mode.el
@@ -638,8 +638,7 @@ Must be the car of an entry in `LilyPond-command-alist'."
               (base (cadr l)))
          (LilyPond-command-expand
           (concat (substring string 0 b)
-                  dir
-                  base
+                  (shell-quote-argument (concat dir base))
                   (let ((entry (assoc (substring string b e)
                                       LilyPond-expand-alist)))
                     (if entry (cdr entry) ""))