description_ = scm_cons (ly_car (desc), scm_make_real (total_mag));
orig_ = m;
-
- if (coding_scheme_ != "TeX"
+
+ if (coding_scheme_ != ""
+ && coding_scheme_ != "TeX"
&& coding_scheme_ != "ASCII"
&& coding_scheme_ != orig_->coding_scheme ())
{
coding_table_);
coding_description_= SCM_EOL;
-
coding_description_ = scm_acons (ly_symbol2scm ("input-name"),
scm_makfrom0str (coding_scheme_.to_str0 ()),
coding_description_);
-
coding_description_ = scm_acons (ly_symbol2scm ("input-vector"),
coding_vector_, coding_description_);
coding_description_ = scm_acons (ly_symbol2scm ("output-name"),
coding_description_ = scm_acons (ly_symbol2scm ("output-table"),
coding_table_,
coding_description_);
-
coding_description_ = scm_acons (ly_symbol2scm ("char-mapping"),
coding_mapping_,
coding_description_);
Modified_font_metric::make_scaled_font_metric (SCM coding, Font_metric *m, Real s)
{
/*
- UGOHR.
+ UGH.
*/
if (ly_c_symbol_p (coding))
coding = scm_symbol_to_string (coding);
- String scheme = ly_scm2string (coding);
+ String scheme = ly_c_string_p (coding) ? ly_scm2string (coding) : "";
Modified_font_metric *sfm = new Modified_font_metric (scheme, m, s);
b = tex_kludge (text);
}
else if (coding_scheme_ == "ASCII"
+ || coding_scheme_ == ""
|| coding_scheme_ == orig_->coding_scheme ())
{
Interval ydims;