From: Valentin Villenave <valentin@villenave.net>
Date: Sun, 13 Jan 2008 18:02:44 +0000 (+0100)
Subject: sixth patch from Joe: fix displayLilyMusic for clefs
X-Git-Tag: release/2.11.38-1~88
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d3137d1b07b473666711575dbebf8e70ebd4caca;p=lilypond.git

sixth patch from Joe: fix displayLilyMusic for clefs
---

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