X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fchord-name.cc;h=4e6f87cdc4428c6a5d864bb2375c796f707c7e1d;hb=867530093ed5374d6e28d2c11a933f3b991c226e;hp=2b17c561b35a2af5f3d8e15a739d07b9b910ffe6;hpb=2522fadff41b2b07313c4967a4f85c147fe9b9c4;p=lilypond.git

diff --git a/lily/chord-name.cc b/lily/chord-name.cc
index 2b17c561b3..4e6f87cdc4 100644
--- a/lily/chord-name.cc
+++ b/lily/chord-name.cc
@@ -60,7 +60,7 @@ Chord_name::brew_molecule (SCM smob)
   SCM func = me->get_elt_property (ly_symbol2scm ("chord-name-function"));
   SCM text = gh_call3 (func, style, pitches, gh_cons (inversion, bass));
 
-  SCM properties = gh_list (me->mutable_property_alist_, me->immutable_property_alist_, SCM_UNDEFINED);
+  SCM properties = Font_interface::font_alist_chain (me);
   Molecule mol = Text_item::text2molecule (me, text, properties);
 
   SCM space =  me->get_elt_property ("word-space");