From b1fb45f49af4f8f7684ce18a2557e4ea97fb908a Mon Sep 17 00:00:00 2001
From: Valentin Villenave <valentin@villenave.net>
Date: Mon, 14 Jan 2008 01:40:17 +0100
Subject: [PATCH] Revert "sixth patch from Joe: fix displayLilyMusic for clefs"
This reverts commit 3c98dad2fcce939ba703380b69aa4d0c03b5fdf2.
Signed-off-by: Valentin Villenave <v.villenave@gmail.com>
---
scm/define-music-display-methods.scm | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
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
--
2.39.5