From e9d2d386cc5e009dd69d94d8bf08180fa20ea5d4 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sun, 14 Nov 1999 12:24:16 +0000
Subject: [PATCH] (Qsub): New variable. (to_char_code): Add `Qsub'.
 (syms_of_mule_charset): Add new symbol `sub'.

---
 src/mule-charset.c |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 870a6f5..086ff79 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -390,6 +390,7 @@ Lisp_Object Qnarrow;
 Lisp_Object Qcompat;
 Lisp_Object QnoBreak;
 Lisp_Object Qsuper;
+Lisp_Object Qsub;
 Lisp_Object Qfraction;
 
 Emchar
@@ -409,8 +410,10 @@ to_char_code (Lisp_Object v, char* err_msg, Lisp_Object err_arg)
     return -4;
   else if (EQ (v, Qsuper))
     return -5;
-  else if (EQ (v, Qfraction))
+  else if (EQ (v, Qsub))
     return -6;
+  else if (EQ (v, Qfraction))
+    return -7;
   else 
     signal_simple_error (err_msg, err_arg);
 }
@@ -2508,6 +2511,7 @@ syms_of_mule_charset (void)
   defsymbol (&Qcompat,			"compat");
   defsymbol (&QnoBreak,			"noBreak");
   defsymbol (&Qsuper,			"super");
+  defsymbol (&Qsub,			"sub");
   defsymbol (&Qfraction,		"fraction");
   defsymbol (&Qucs,			"ucs");
   defsymbol (&Qucs_bmp,			"ucs-bmp");
-- 
1.7.10.4