- PangoItem *item = (PangoItem *) ptr->data;
-
- Stencil item_stencil = pango_item_string_stencil (item, str, tight);
-
- if (text_dir == RIGHT)
- {
- item_stencil.translate_axis (last_x, X_AXIS);
- last_x = item_stencil.extent (X_AXIS)[RIGHT];
- }
- else if (text_dir == LEFT)
- {
- dest.translate_axis (item_stencil.extent (X_AXIS)[RIGHT], X_AXIS);
- }
-
-#if 0 /* Check extents. */
- if (!item_stencil.extent_box ()[X_AXIS].is_empty ())
- {
- Stencil frame = Lookup::frame (item_stencil.extent_box (), 0.1, 0.1);
- Box empty;
- empty.set_empty ();
- Stencil dimless_frame (empty, frame.expr ());
- dest.add_stencil (frame);
- }
-#endif
-
- dest.add_stencil (item_stencil);
+ SCM utf8_string = ly_module_lookup (mod, ly_symbol2scm ("utf-8-string"));
+ /*
+ has_utf8_string should only be true when utf8_string is a
+ variable that is bound to a *named* procedure, i.e. not a
+ lambda expression.
+ */
+ if (utf8_string != SCM_BOOL_F
+ && scm_procedure_name (SCM_VARIABLE_REF (utf8_string)) != SCM_BOOL_F)
+ has_utf8_string = true;