From 02276b8e7e7b7e647493d52f77beb00d64951836 Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 14 Nov 1999 21:24:23 +0000 Subject: [PATCH] (Qsquare): New variable. (to_char_code): Add `Qsquare'. (syms_of_mule_charset): Add new symbol `square'. --- src/mule-charset.c | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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"); -- 1.7.10.4