(font_unparse_gtkname): Use EQ to compare Lisp_Objects.

diff --git a/src/ChangeLog b/src/ChangeLog
index dd86145776e51cc190b6415208e7b7914a3e7d9d..1df8b2ae032e3f4e78b2ff74fbbaff48ab184463 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-06-16  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * font.c (font_unparse_gtkname): Use EQ to compare Lisp_Objects.
+
 2008-06-16  Chong Yidong  <cyd@stupidchicken.com>
 
        * font.c (font_parse_fcname): Fix handling of unknown-spec string.
@@ -13,13 +17,13 @@
 
 2008-06-16  Jason Rumney  <jasonr@gnu.org>
 
-        * font.h (font_style_symbolic_from_value): Remove.
+       * font.h (font_style_symbolic_from_value): Remove.
 
-        * font.c (font_style_symbolic_from_value): Remove.
-        (font_style_symbolic): Revert to pre 2008-06-13 version.
+       * font.c (font_style_symbolic_from_value): Remove.
+       (font_style_symbolic): Revert to pre 2008-06-13 version.
 
-        * w32font.c (w32_to_fc_weight): New function.
-        (w32font_full_name, logfont_to_fcname): Use it.
+       * w32font.c (w32_to_fc_weight): New function.
+       (w32font_full_name, logfont_to_fcname): Use it.
 
 2008-06-16  Kenichi Handa  <handa@m17n.org>
 

diff --git a/src/font.c b/src/font.c
index 420548171e50c56cf8669286a3ac0704c2d0734d..51b7c2ec22097b7dfe9da19c411171d247ddf116 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -1734,7 +1734,7 @@ font_unparse_gtkname (font, f, name, nbytes)
     }
 
   weight = font_style_symbolic (font, FONT_WEIGHT_INDEX, 0);
-  if (weight == Qnormal)
+  if (EQ (weight, Qnormal))
     weight = Qnil;
   else if (! NILP (weight))
     {
@@ -1743,7 +1743,7 @@ font_unparse_gtkname (font, f, name, nbytes)
     }
 
   slant = font_style_symbolic (font, FONT_SLANT_INDEX, 0);
-  if (slant == Qnormal)
+  if (EQ (slant, Qnormal))
     slant = Qnil;
   else if (! NILP (slant))
     {