lilypond-mode gives wrong-type-argument error in Emacs CVS

[Anders Kaseorg]

I'm using Lilypond 2.6.3 (via RPM from the PlanetCCRMA repository) on 
Fedora Core development, and a current CVS version of Emacs. If I try to 
open a .ly file in Emacs, lilypond-mode fails to load, with the 
following message:

File mode specification error: (wrong-type-argument arrayp 0)

If I set debug-on-error, I get this backtrace:

Debugger entered--Lisp error: (wrong-type-argument arrayp 0)
  substring(0 0 -12)
  (string-to-number (substring (count-midi-words) 0 -12))
  (let ((fnameprefix ...) (allcount ...) (count ...)) (concat 
fnameprefix (if ... ...) ".midi"))
  LilyPond-string-current-midi()
  (concat LilyPond-midi-command " " (LilyPond-string-current-midi))
  (list "Midi" (concat LilyPond-midi-command " " 
(LilyPond-string-current-midi)))
  (list (backquote-list* "LilyPond" (concat LilyPond-lilypond-command " 
%s") (quote ...)) (quote ("TeX" "tex '\\nonstopmode\\input %t'" "%t" 
"%d" "ViewDVI")) (backquote-list* "2Dvi" (concat 
LilyPond-lilypond-command " -b tex %s") (quote ...)) (backquote-list* 
"2PS" (concat LilyPond-lilypond-command " -f ps %s") (quote ...)) (list 
"2Gnome" (concat LilyPond-lilypond-command " -b gnome %s")) (quote 
("Book" "lilypond-book %x" "%x" "%l" "LaTeX")) (quote ("LaTeX" "latex 
'\\nonstopmode\\input %l'" "%l" "%d" "ViewDVI")) (list "View" (concat 
LilyPond-pdf-command " %f")) (list "ViewPDF" (concat 
LilyPond-pdf-command " %f")) (list "ViewDVI" (concat 
LilyPond-dvi-command " %d")) (list "ViewPS" (concat LilyPond-ps-command 
" %p")) (list "Midi" (concat LilyPond-midi-command " " ...)) (list 
"MidiAll" (concat LilyPond-all-midi-command " " ...)))
  (\` (("LilyPond" ... "%s" "%l" "View") ("TeX" "tex 
'\\nonstopmode\\input %t'" "%t" "%d" "ViewDVI") ("2Dvi" ... "%s" "%d" 
"LaTeX") ("2PS" ... "%s" "%p" "ViewPS") ("2Gnome" ...) ("Book" 
"lilypond-book %x" "%x" "%l" "LaTeX") ("LaTeX" "latex 
'\\nonstopmode\\input %l'" "%l" "%d" "ViewDVI") ("View" ...) ("ViewPDF" 
...) ("ViewDVI" ...) ("ViewPS" ...) ("Midi" ...) ("MidiAll" ...)))
  eval((\` (("LilyPond" ... "%s" "%l" "View") ("TeX" "tex 
'\\nonstopmode\\input %t'" "%t" "%d" "ViewDVI") ("2Dvi" ... "%s" "%d" 
"LaTeX") ("2PS" ... "%s" "%p" "ViewPS") ("2Gnome" ...) ("Book" 
"lilypond-book %x" "%x" "%l" "LaTeX") ("LaTeX" "latex 
'\\nonstopmode\\input %l'" "%l" "%d" "ViewDVI") ("View" ...) ("ViewPDF" 
...) ("ViewDVI" ...) ("ViewPS" ...) ("Midi" ...) ("MidiAll" ...))))
  custom-initialize-reset(LilyPond-command-alist (\` (("LilyPond" ... 
"%s" "%l" "View") ("TeX" "tex '\\nonstopmode\\input %t'" "%t" "%d" 
"ViewDVI") ("2Dvi" ... "%s" "%d" "LaTeX") ("2PS" ... "%s" "%p" "ViewPS") 
("2Gnome" ...) ("Book" "lilypond-book %x" "%x" "%l" "LaTeX") ("LaTeX" 
"latex '\\nonstopmode\\input %l'" "%l" "%d" "ViewDVI") ("View" ...) 
("ViewPDF" ...) ("ViewDVI" ...) ("ViewPS" ...) ("Midi" ...) ("MidiAll" 
...))))
  custom-declare-variable(LilyPond-command-alist (\` (("LilyPond" ... 
"%s" "%l" "View") ("TeX" "tex '\\nonstopmode\\input %t'" "%t" "%d" 
"ViewDVI") ("2Dvi" ... "%s" "%d" "LaTeX") ("2PS" ... "%s" "%p" "ViewPS") 
("2Gnome" ...) ("Book" "lilypond-book %x" "%x" "%l" "LaTeX") ("LaTeX" 
"latex '\\nonstopmode\\input %l'" "%l" "%d" "ViewDVI") ("View" ...) 
("ViewPDF" ...) ("ViewDVI" ...) ("ViewPS" ...) ("Midi" ...) ("MidiAll" 
...))) "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*> nil "lilypond-mode" nil t)  ; Reading 
at buffer position 16095

load-with-code-conversion("/usr/share/emacs/site-lisp/lilypond-mode.el" 
"lilypond-mode" nil nil)
  LilyPond-mode()
  set-auto-mode-0(LilyPond-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer test.ly> "~/test.ly" nil nil 
"~/test.ly" (3720965 770))
  find-file-noselect("/home/anders/test.ly" nil nil nil)
  find-file("/home/anders/test.ly")
  command-line-1(("test.ly"))
  command-line()
  normal-top-level()

This doesn't happen with Emacs 21.4.

Anders