From b1487360318311d57874d0e713268ee2abda9d76 Mon Sep 17 00:00:00 2001 From: Joe Neeman Date: Tue, 8 Jan 2008 11:08:46 +0100 Subject: [PATCH] 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.2