From: tomo <tomo>
Date: Sun, 14 Nov 1999 21:24:23 +0000 (+0000)
Subject: (Qsquare): New variable.
X-Git-Tag: r21-2-19-utf-2000-0_12-0~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=02276b8e7e7b7e647493d52f77beb00d64951836;p=chise%2Fxemacs-chise.git

(Qsquare): New variable.
(to_char_code): Add `Qsquare'.
(syms_of_mule_charset): Add new symbol `square'.
---

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 046f0b8..b83166d 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -391,6 +391,7 @@ Lisp_Object Qfraction;
 Lisp_Object Qsuper;
 Lisp_Object Qsub;
 Lisp_Object Qcircle;
+Lisp_Object Qsquare;
 Lisp_Object Qwide;
 Lisp_Object Qnarrow;
 Lisp_Object Qfont;
@@ -414,12 +415,14 @@ to_char_code (Lisp_Object v, char* err_msg, Lisp_Object err_arg)
     return -5;
   else if (EQ (v, Qcircle))
     return -6;
-  else if (EQ (v, Qwide))
+  else if (EQ (v, Qsquare))
     return -7;
-  else if (EQ (v, Qnarrow))
+  else if (EQ (v, Qwide))
     return -8;
-  else if (EQ (v, Qfont))
+  else if (EQ (v, Qnarrow))
     return -9;
+  else if (EQ (v, Qfont))
+    return -10;
   else 
     signal_simple_error (err_msg, err_arg);
 }
@@ -2518,6 +2521,7 @@ syms_of_mule_charset (void)
   defsymbol (&Qsuper,			"super");
   defsymbol (&Qsub,			"sub");
   defsymbol (&Qcircle,			"circle");
+  defsymbol (&Qsquare,			"square");
   defsymbol (&Qwide,			"wide");
   defsymbol (&Qnarrow,			"narrow");
   defsymbol (&Qfont,			"font");