]> git.donarmstrong.com Git - lilypond.git/commitdiff
Revert "sixth patch from Joe: fix displayLilyMusic for clefs"
authorValentin Villenave <valentin@villenave.net>
Mon, 14 Jan 2008 00:40:17 +0000 (01:40 +0100)
committerValentin Villenave <valentin@villenave.net>
Mon, 14 Jan 2008 00:40:17 +0000 (01:40 +0100)
This reverts commit 3c98dad2fcce939ba703380b69aa4d0c03b5fdf2.

Signed-off-by: Valentin Villenave <v.villenave@gmail.com>
scm/define-music-display-methods.scm

index b1b9111e13c58839086288e8d49834eaf695ed2e..d5449925ece4f4138aac0d7aab2971f7fff6fda7 100644 (file)
@@ -918,15 +918,13 @@ Otherwise, return #f."
                                                                 value ?clef-glyph
                                                                 symbol 'clefGlyph)
                                                          (music 'PropertySet
-                                                                symbol 'middleCClefPosition)
+                                                                symbol 'middleCPosition)
                                                          (music 'PropertySet
                                                                 value ?clef-position
                                                                 symbol 'clefPosition)
                                                          (music 'PropertySet
                                                                 value ?clef-octavation
-                                                                symbol 'clefOctavation)
-                                                         (music 'ApplyContext
-                                                                procedure ly:set-middle-C!)))))
+                                                                symbol 'clefOctavation)))))
     (let ((clef-prop+name (assoc (list ?clef-glyph ?clef-position 0)
                                 clef-name-alist)))
       (if clef-prop+name