Here's the offending line in chord-name.scm that causes the problem
(define (step->text-jazz pitch)
(if (= (cadr pitch) 6)
(case (caddr pitch)
;; sharp 7 only included for completeness?
((-2) (text-append (accidental->text -1) '("7")))
((-1) '("7"))
((0) '("maj7")) ****************************************This one
((1) (text-append (accidental->text-super 1) '("7")))
((2) (text-append (accidental->text-super 2) '("7"))))
(step->text-alternate-jazz pitch)))
I can hack it changing "maj7" to "" to fix it but I don't really understand
this code. Are there any lilypond programmers here that can explain it?
Thanks,
Jonathan.
_______________________________________________
Lilypond-user mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/lilypond-user
