From 46e722a9b608044d32f0c47bfb70ae4a6c12c6ff Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 13 Mar 2009 15:21:04 +0000 Subject: [PATCH] (fontset_from_font): YAILOM (Yet another int/Lisp_Object mixup). --- src/ChangeLog | 14 ++++++++++---- src/fontset.c | 2 +- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index cc09320ef16..e17edb6da97 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2009-03-13 Stefan Monnier + + * fontset.c (fontset_from_font): YAILOM (Yet another int/Lisp_Object + mixup). + 2009-03-13 Kenichi Handa * fontset.c (Ffontset_info, check_fontset_name): New arg frame. @@ -885,7 +890,7 @@ 2009-01-09 Glenn Morris * keyboard.c (last_command_char): For clarity, rename to... - (last_command-event): ... and update all users. + (last_command_event): ... and update all users. (last_input_char): For clarity, rename to... (last_input_event): ... and update all users. (last-command-char, last-input-char): Move to subr.el as aliases. @@ -2456,7 +2461,7 @@ 2008-09-17 Stefan Monnier - * composite.c (Fcomposition_get_gstring): Yet another int/Lisp_Oject + * composite.c (Fcomposition_get_gstring): Yet another int/Lisp_Object mixup (YAILOM). 2008-09-17 Chong Yidong @@ -2674,7 +2679,8 @@ * font.h (font_range): * fileio.c (report_file_error): - * composite.c (composition_update_it): Yet another int/Lisp_Oject mixup. + * composite.c (composition_update_it): Yet another int/Lisp_Object + mixup (YAILOM). 2008-08-30 Glenn Morris @@ -9090,7 +9096,7 @@ * font.c (check_gstring): Use them and AREF to access the vector before we know it's really a gstring. (Ffont_shape_text): Fix typo. - (Ffont_shape_text, Ffont_otf_alternates): Fix up int/Lisp_Oject mixups. + (Ffont_shape_text, Ffont_otf_alternates): Fix up int/Lisp_Object mixups. * composite.h (Fcompose_region_internal, Fcompose_string_internal): Declare. diff --git a/src/fontset.c b/src/fontset.c index 03c50b76c8a..9438c2379a4 100644 --- a/src/fontset.c +++ b/src/fontset.c @@ -1767,7 +1767,7 @@ fontset_from_font (font_object) ASET (font_spec, i, Qnil); Fset_fontset_font (name, Qlatin, font_spec, Qnil, Qnil); Fset_fontset_font (name, Qnil, font_spec, Qnil, Qnil); - if (registry != Qiso10646_1) + if (!EQ (registry, Qiso10646_1)) { font_spec = Fcopy_font_spec (font_spec); ASET (font_spec, FONT_REGISTRY_INDEX, Qiso10646_1); -- 2.39.5