X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fparser-clef.scm;h=b3de9fc405876ce6fe7212b2e3d158210cded146;hb=b14ca8cd4fd50af455590377c4fab5c504506635;hp=4724090ff92a0962a176d7671345072bf4f8e521;hpb=5d541f9872bb301bc1b08d621fb2e4cb7b5421c8;p=lilypond.git

diff --git a/scm/parser-clef.scm b/scm/parser-clef.scm
index 4724090ff9..b3de9fc405 100644
--- a/scm/parser-clef.scm
+++ b/scm/parser-clef.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;; source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 2004--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2004--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 
 ;; (name . (glyph clef-position octavation))
@@ -113,15 +113,17 @@
     (if (pair? e)
 	(let* ((musics (map make-prop-set
 			    `(((symbol . clefGlyph) (value . ,(cadr e)))
-			      ((symbol . middleCPosition)
+			      ((symbol . middleCClefPosition)
 			       (value . ,(+ oct
 					    (caddr e)
 					    (cdr (assoc (cadr e) c0-pitch-alist)))))
 			      ((symbol . clefPosition) (value . ,(caddr e)))
 			      ((symbol . clefOctavation) (value . ,(- oct))))))
+	       (recalc-mid-C (make-music 'ApplyContext))
 	       (seq (make-music 'SequentialMusic
-				'elements musics))
+				'elements (append musics (list recalc-mid-C))))
 	       (csp (make-music 'ContextSpeccedMusic)))
+	  (set! (ly:music-property recalc-mid-C 'procedure) ly:set-middle-C!)
 	  (context-spec-music seq 'Staff))
 	(begin
 	  (ly:warning (_ "unknown clef type `~a'") clef-name)