]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/font-metric.cc
* lily/stencil-scheme.cc: remove ly:fontify-atom
[lilypond.git] / lily / font-metric.cc
index 18a91d8b8c4902877b8783fa50343c19027d3a1f..1f63dbf95156f8faa16e47a7cdc487bb76ea3c32 100644 (file)
@@ -220,8 +220,9 @@ Font_metric::index_to_ascii (int i) const
 Stencil
 Font_metric::get_ascii_char_stencil (int code) const
 {
-  SCM at = scm_list_2 (ly_symbol2scm ("char"), scm_int2num (code));
-  at = fontify_atom (this, at);
+  SCM at = scm_list_3 (ly_symbol2scm ("char"),
+                      this->self_scm (),
+                      scm_int2num (code));
   Box b = get_ascii_char (code);
   return Stencil (b, at);
 }
@@ -229,8 +230,9 @@ Font_metric::get_ascii_char_stencil (int code) const
 Stencil
 Font_metric::get_indexed_char_stencil (int code) const
 {
-  SCM at = scm_list_2 (ly_symbol2scm ("char"), scm_int2num (code));
-  at = fontify_atom (this, at);
+  SCM at = scm_list_3 (ly_symbol2scm ("char"),
+                      self_scm (),
+                      scm_int2num (code));
   Box b = get_indexed_char (code);
   return Stencil (b, at);
 }