LilyPond Mode

[Mark Hindley]

I have just patched lilypond-mode.el to record the command history
separately from the mini-buffer.

Also a fix for comments.


Mark


--- ~/lilypond-mode.el  Wed May 16 08:32:50 2001
+++ ~/lilypond-mode.el  Thu Jul 12 11:46:30 2001
@@ -31,6 +31,9 @@
 (defvar LilyPond-kick-xdvi nil
   "If true, no simultaneous xdvi's are started, but reload signal is sent.")
 
+(defvar LilyPond-command-history nil
+  "Command history list.")
+       
 (defvar LilyPond-regexp-alist
   '(("\\([a-zA-Z]?:?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2))
   "Regexp used to match LilyPond errors.  See 
`compilation-error-regexp-alist'.")
@@ -228,7 +231,7 @@
         (answer (or LilyPond-command-force
                     (completing-read
                      (concat "Command: (default " default ") ")
-                     LilyPond-command-alist nil t))))
+                     LilyPond-command-alist nil t nil 
'LilyPond-command-history))))
 
     ;; If the answer is "LilyPond" it will not be expanded to "LilyPond"
     (let ((answer (car-safe (assoc answer LilyPond-command-alist))))
@@ -454,7 +462,7 @@
   (setq comment-start-skip "%{? *")
 
   (make-local-variable 'comment-end)
-  (setq comment-end "\n")
+  (setq comment-end "")
 
   (make-local-variable 'block-comment-start)
   (setq block-comment-start "%{")