[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Problem with emacs mode
From: |
Milan Zamazal |
Subject: |
Re: Problem with emacs mode |
Date: |
Sun, 12 Feb 2006 16:09:41 +0100 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) |
>>>>> "CH" == Cameron Horsburgh <address@hidden> writes:
CH> When I use `M-x LilyPond-mode' in GNU Emacs (both 21.4 and 22.0)
CH> it fails with the following error:
CH> Loading lilypond-mode (source)...
CH> if: Wrong type argument: arrayp, nil
I had to apply the following patch to make LilyPond 2.6.3 and 2.7.32
work with CVS Emacs:
--- lilypond-mode.el.orig 2006-02-12 15:58:09.000000000 +0100
+++ lilypond-mode.el 2006-02-11 20:12:00.000000000 +0100
@@ -393,8 +393,8 @@
(let ((fnameprefix (if (eq LilyPond-command-current 'LilyPond-command-master)
(substring (LilyPond-get-master-file) 0 -3); suppose
".ly"
LilyPond-region-file-prefix))
- (allcount (string-to-number (substring (count-midi-words) 0 -12)))
- (count (string-to-number (substring (count-midi-words-backwards) 0
-12))))
+ (allcount (count-midi-words))
+ (count (count-midi-words-backwards)))
(concat fnameprefix
(if (and (> allcount 1) (> count 0)) ; not first score
(if (eq count allcount) ; last score
@@ -407,7 +407,7 @@
(let ((fnameprefix (if (eq LilyPond-command-current 'LilyPond-command-master)
(substring (LilyPond-get-master-file) 0 -3); suppose
".ly"
LilyPond-region-file-prefix))
- (allcount (string-to-number (substring (count-midi-words) 0 -12))))
+ (allcount (count-midi-words)))
(concat (if (> allcount 0) ; at least one midi-score
(concat fnameprefix ".midi "))
(if (> allcount 1) ; more than one midi-score
Regards,
Milan Zamazal