[Emacs-diffs] Changes to emacs/src/font.c,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   08/06/03 05:57:56

Index: font.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/font.c,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- font.c      2 Jun 2008 16:40:59 -0000       1.35
+++ font.c      3 Jun 2008 05:57:56 -0000       1.36
@@ -537,14 +537,19 @@
 {
   if (NILP (val) || (NATNUMP (val) && XINT (val) <= FONT_SPACING_CHARCELL))
     return val;
-  if (EQ (val, Qc))
+  if (SYMBOLP (val) && SBYTES (SYMBOL_NAME (val)) == 1)
+    {
+      char spacing = SDATA (SYMBOL_NAME (val))[0];
+
+      if (spacing == 'c' || spacing == 'C')
     return make_number (FONT_SPACING_CHARCELL);
-  if (EQ (val, Qm))
+      if (spacing == 'm' || spacing == 'M')
     return make_number (FONT_SPACING_MONO);
-  if (EQ (val, Qp))
+      if (spacing == 'P' || spacing == 'P')
     return make_number (FONT_SPACING_PROPORTIONAL);
-  if (EQ (val, Qd))
+      if (spacing == 'd' || spacing == 'D')
     return make_number (FONT_SPACING_DUAL);
+    }
   return Qerror;
 }