From: matsb <matsb>
Date: Fri, 20 Feb 2004 13:45:21 +0000 (+0000)
Subject: 	* lily/accidental.cc (print): Change font-relative-size ->
X-Git-Tag: release/2.1.27~26
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d06fae7061e74c4c8a6e0e325a8f723a32421787;p=lilypond.git

	* lily/accidental.cc (print): Change font-relative-size ->
	font-size. Fixes cautionary-style = smaller.
---

diff --git a/ChangeLog b/ChangeLog
index d8aedc4d71..fb36ef47d0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-20  Mats Bengtsson  <mabe@drongo.s3.kth.se>
+
+	* lily/accidental.cc (print): Change font-relative-size ->
+	font-size. Fixes cautionary-style = smaller.
+
 2004-02-20  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
 	* lily/parser.yy (music_property_def): oops. SCM_UNDEFINED
diff --git a/lily/accidental.cc b/lily/accidental.cc
index 8c27bd2b2e..427200dd9f 100644
--- a/lily/accidental.cc
+++ b/lily/accidental.cc
@@ -193,8 +193,8 @@ Accidental_interface::print (SCM smob)
     {
       SCM ac = Font_interface::font_alist_chain (me);
       ac = gh_cons (gh_cons (gh_cons
-			     (ly_symbol2scm ("font-relative-size"),
-			      scm_int2num (-1)), SCM_EOL),
+			     (ly_symbol2scm ("font-size"),
+			      scm_int2num (-2)), SCM_EOL),
 		    ac);
       fm = select_font (me->get_paper (), ac);
     }