From d3137d1b07b473666711575dbebf8e70ebd4caca Mon Sep 17 00:00:00 2001 From: Valentin Villenave Date: Sun, 13 Jan 2008 19:02:44 +0100 Subject: [PATCH] sixth patch from Joe: fix displayLilyMusic for clefs --- scm/define-music-display-methods.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm index d5449925ec..b1b9111e13 100644 --- a/scm/define-music-display-methods.scm +++ b/scm/define-music-display-methods.scm @@ -918,13 +918,15 @@ Otherwise, return #f." value ?clef-glyph symbol 'clefGlyph) (music 'PropertySet - symbol 'middleCPosition) + symbol 'middleCClefPosition) (music 'PropertySet value ?clef-position symbol 'clefPosition) (music 'PropertySet value ?clef-octavation - symbol 'clefOctavation))))) + symbol 'clefOctavation) + (music 'ApplyContext + procedure ly:set-middle-C!))))) (let ((clef-prop+name (assoc (list ?clef-glyph ?clef-position 0) clef-name-alist))) (if clef-prop+name -- 2.39.5