From: Valentin Villenave <valentin@villenave.net>
Date: Mon, 14 Jan 2008 00:40:17 +0000 (+0100)
Subject: Revert "sixth patch from Joe: fix displayLilyMusic for clefs"
X-Git-Tag: release/2.11.38-1~81
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b1fb45f49af4f8f7684ce18a2557e4ea97fb908a;p=lilypond.git

Revert "sixth patch from Joe: fix displayLilyMusic for clefs"

This reverts commit 3c98dad2fcce939ba703380b69aa4d0c03b5fdf2.

Signed-off-by: Valentin Villenave <v.villenave@gmail.com>
---

diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index b1b9111e13..d5449925ec 100644
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -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