From 1c351d78fd9dbc5ea85a9afe16673237d63ca75b Mon Sep 17 00:00:00 2001
From: Mats Bengtsson <mats.bengtsson@s3.kth.se>
Date: Fri, 20 Feb 2004 13:45:21 +0000
Subject: [PATCH] 	* lily/accidental.cc (print): Change
 font-relative-size -> 	font-size. Fixes cautionary-style = smaller.

---
 ChangeLog          | 5 +++++
 lily/accidental.cc | 4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

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);
     }
-- 
2.39.2