Emacs lilypond mode

[Joseph Zitt]

Hi, I'm getting errors starting emacs with lilypond mode. This is for 
emacs GNU Emacs 21.2.93.1 and GNU LilyPond 1.7.14 under Mandrake Linux 
9.1 (Yes, I probably should be using the stable 1.6.x lilypond, but it 
doesn't seem to want to install under Mandrake 9.1.)

I have this in my .emacs:

(load-library "lilypond-mode.el")
(setq auto-mode-alist
      (cons '("\\.ly$" . LilyPond-mode) auto-mode-alist))


I've attached the output of 'emacs --debug-init'.

From what I can follow of the Lisp, it seems to have something to do 
with MIDI, which I'm not currently using for anything as far as I know. 
Any clues as how to get this to work?

BTW, when I handed out scores to my ensemble and told them that they 
were generated by a free open-source package, there was the sound of 
multiple jaws dropping in surprise :-)

Thanks for any enlightenment...

Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
  substring(nil 0 -3)
  (let ((fnameprefix ...) (allcount ...) (count ...)) (concat fnameprefix (if 
... ...) ".midi"))
  LilyPond-string-current-midi()
  (concat LilyPond-midi-command " " (LilyPond-string-current-midi))
  (cons (concat LilyPond-midi-command " " (LilyPond-string-current-midi)) 
(quote "LilyPond"))
  (cons "Midi" (cons (concat LilyPond-midi-command " " ...) (quote "LilyPond")))
  (backquote-list* "Midi" (concat LilyPond-midi-command " " 
(LilyPond-string-current-midi)) (quote "LilyPond"))
  (list (quote ("LilyPond" "lilypond %s" . "LaTeX")) (quote ("TeX" "tex 
'\\nonstopmode\\input %t'" . "View")) (quote ("2Dvi" "ly2dvi %s" . "View")) 
(quote ("2PS" "ly2dvi -P %s" . "ViewPS")) (quote ("2Midi" "lilypond -m %s" . 
"View")) (quote ("Book" "lilypond-book %x" . "LaTeX")) (quote ("LaTeX" "latex 
'\\nonstopmode\\input %l'" . "View")) (quote ("SmartView" "xdvi %d" . 
"LilyPond")) (backquote-list* "View" (concat LilyPond-xdvi-command " %d") 
(quote "LilyPond")) (backquote-list* "ViewPS" (concat LilyPond-gv-command " 
%p") (quote "LilyPond")) (backquote-list* "Midi" (concat LilyPond-midi-command 
" " ...) (quote "LilyPond")) (backquote-list* "MidiAll" (concat 
LilyPond-all-midi-command " " ...) (quote "LilyPond")))
  (\` (("LilyPond" "lilypond %s" . "LaTeX") ("TeX" "tex '\\nonstopmode\\input 
%t'" . "View") ("2Dvi" "ly2dvi %s" . "View") ("2PS" "ly2dvi -P %s" . "ViewPS") 
("2Midi" "lilypond -m %s" . "View") ("Book" "lilypond-book %x" . "LaTeX") 
("LaTeX" "latex '\\nonstopmode\\input %l'" . "View") ("SmartView" "xdvi %d" . 
"LilyPond") ("View" ... . "LilyPond") ("ViewPS" ... . "LilyPond") ("Midi" ... . 
"LilyPond") ("MidiAll" ... . "LilyPond")))
  eval((\` (("LilyPond" "lilypond %s" . "LaTeX") ("TeX" "tex 
'\\nonstopmode\\input %t'" . "View") ("2Dvi" "ly2dvi %s" . "View") ("2PS" 
"ly2dvi -P %s" . "ViewPS") ("2Midi" "lilypond -m %s" . "View") ("Book" 
"lilypond-book %x" . "LaTeX") ("LaTeX" "latex '\\nonstopmode\\input %l'" . 
"View") ("SmartView" "xdvi %d" . "LilyPond") ("View" ... . "LilyPond") 
("ViewPS" ... . "LilyPond") ("Midi" ... . "LilyPond") ("MidiAll" ... . 
"LilyPond"))))
  custom-initialize-reset(LilyPond-command-alist (\` (("LilyPond" "lilypond %s" 
. "LaTeX") ("TeX" "tex '\\nonstopmode\\input %t'" . "View") ("2Dvi" "ly2dvi %s" 
. "View") ("2PS" "ly2dvi -P %s" . "ViewPS") ("2Midi" "lilypond -m %s" . "View") 
("Book" "lilypond-book %x" . "LaTeX") ("LaTeX" "latex '\\nonstopmode\\input 
%l'" . "View") ("SmartView" "xdvi %d" . "LilyPond") ("View" ... . "LilyPond") 
("ViewPS" ... . "LilyPond") ("Midi" ... . "LilyPond") ("MidiAll" ... . 
"LilyPond"))))
  custom-declare-variable(LilyPond-command-alist (\` (("LilyPond" "lilypond %s" 
. "LaTeX") ("TeX" "tex '\\nonstopmode\\input %t'" . "View") ("2Dvi" "ly2dvi %s" 
. "View") ("2PS" "ly2dvi -P %s" . "ViewPS") ("2Midi" "lilypond -m %s" . "View") 
("Book" "lilypond-book %x" . "LaTeX") ("LaTeX" "latex '\\nonstopmode\\input 
%l'" . "View") ("SmartView" "xdvi %d" . "LilyPond") ("View" ... . "LilyPond") 
("ViewPS" ... . "LilyPond") ("Midi" ... . "LilyPond") ("MidiAll" ... . 
"LilyPond"))) "AList of commands to execute on the current document.\n\nThe key 
is the name of the command as it will be presented to the\nuser, the value is a 
cons of the command string handed to the shell\nafter being expanded, and the 
next command to be executed upon\nsuccess.  The expansion is done using the 
information found in\nLilyPond-expand-list.\n" :group LilyPond :type (repeat 
(cons :tag "Command Item" (string :tag "Key") (cons :tag "How" ... ...))))
  (defcustom LilyPond-command-alist (\` (... ... ... ... ... ... ... ... ... 
... ... ...)) "AList of commands to execute on the current document.\n\nThe key 
is the name of the command as it will be presented to the\nuser, the value is a 
cons of the command string handed to the shell\nafter being expanded, and the 
next command to be executed upon\nsuccess.  The expansion is done using the 
information found in\nLilyPond-expand-list.\n" :group (quote LilyPond) :type 
(quote (repeat ...)))
  eval-buffer(#<buffer  *load*<2>> nil "lilypond-mode.el" nil t)
  load-with-code-conversion("/usr/share/emacs/site-lisp/lilypond-mode.el" 
"lilypond-mode.el" nil nil)
  load("lilypond-mode.el")
  load-library("lilypond-mode.el")
  eval-buffer(#<buffer  *load*> nil "~/.emacs" nil t)
  load-with-code-conversion("/home/jzitt/.emacs" "~/.emacs" t t)
  load("~/.emacs" t t)
  #[nil "…—   Æ=ƒÇÈQ‚5    É=ƒ'ÊÇËÌ#ƒ#͂5΂5   
Ï=ƒ1Ђ5ÇÑQÒÓ\n҉#ˆÒ=ƒF˃ˆÔ!՚ƒˆÖ!‰×PØ
!ƒd
‚oØ\f!ƒn\f‚oˉƒ‡Ù\f\"ƒ…ÚÛ\f#ˆÜÝ!ˆ\f*†–Ë ÓÞ҉#))‡" [init-file-user 
system-type user-init-file-1 user-init-file source alt ms-dos "~" "/_emacs" 
windows-nt directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "~/_emacs" 
vax-vms "sys$login:.emacs" "/.emacs" t load file-name-extension "elc" 
file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message 
"Warning: %s is newer than %s" sit-for 1 "default" inhibit-default-init 
inhibit-startup-message] 5]()
  command-line()
  normal-top-level()