release: 1.3.107

[lilypond.git] / lilypond-mode.el

diff --git a/lilypond-mode.el b/lilypond-mode.el
index 71c3a68429345fc6a1cee4e0d1893b5a6c8cf18c..6e3de95f4d0ccd3feae29ebe7f461fc6eb707240 100644 (file)
--- a/lilypond-mode.el
+++ b/lilypond-mode.el
@@ -110,6 +110,7 @@ in LilyPond-include-path."
 ;; variable instead of quering the user. 
 (defvar LilyPond-command-force nil)
 
+(defvar LilyPond-xdvi-command "xdvik")
 
 ;; This is the major configuration variable.
 (defcustom LilyPond-command-alist
@@ -121,7 +122,7 @@ in LilyPond-include-path."
     ("SmartView" . ("xdvi %d" . "LilyPond"))
     
     ;; refreshes when kicked USR1
-    ("View" . ("xdvik %d" . "LilyPond"))
+    ("View" . ((concat LilyPond-xdvi-command " %d") . "LilyPond"))
     )
 
   "AList of commands to execute on the current document.
@@ -442,6 +443,6 @@ command."
   (interactive)
   (message "Using `LilyPond-mode' version %s" LilyPond-version))
 
-(provide 'LilyPond-mode)
-;;; LilyPond-mode.el ends here
+(provide 'lilypond-mode)
+;;; lilypond-mode.el ends here