Mercurial > emacs
comparison src/font.c @ 96017:54d310663505
(font_unparse_gtkname): Use EQ to compare Lisp_Objects.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Mon, 16 Jun 2008 19:11:02 +0000 |
parents | c1105df0f9c8 |
children | 2a8c4f357ec4 |
comparison
equal
deleted
inserted
replaced
96016:c1105df0f9c8 | 96017:54d310663505 |
---|---|
1732 family = SYMBOL_NAME (family); | 1732 family = SYMBOL_NAME (family); |
1733 len += SBYTES (family); | 1733 len += SBYTES (family); |
1734 } | 1734 } |
1735 | 1735 |
1736 weight = font_style_symbolic (font, FONT_WEIGHT_INDEX, 0); | 1736 weight = font_style_symbolic (font, FONT_WEIGHT_INDEX, 0); |
1737 if (weight == Qnormal) | 1737 if (EQ (weight, Qnormal)) |
1738 weight = Qnil; | 1738 weight = Qnil; |
1739 else if (! NILP (weight)) | 1739 else if (! NILP (weight)) |
1740 { | 1740 { |
1741 weight = SYMBOL_NAME (weight); | 1741 weight = SYMBOL_NAME (weight); |
1742 len += SBYTES (weight); | 1742 len += SBYTES (weight); |
1743 } | 1743 } |
1744 | 1744 |
1745 slant = font_style_symbolic (font, FONT_SLANT_INDEX, 0); | 1745 slant = font_style_symbolic (font, FONT_SLANT_INDEX, 0); |
1746 if (slant == Qnormal) | 1746 if (EQ (slant, Qnormal)) |
1747 slant = Qnil; | 1747 slant = Qnil; |
1748 else if (! NILP (slant)) | 1748 else if (! NILP (slant)) |
1749 { | 1749 { |
1750 slant = SYMBOL_NAME (slant); | 1750 slant = SYMBOL_NAME (slant); |
1751 len += SBYTES (slant); | 1751 len += SBYTES (slant); |