From: tomo <tomo>
Date: Fri, 28 Dec 2001 10:08:16 +0000 (+0000)
Subject: (Qcode_offset): New variable.
X-Git-Tag: r21-2-43-utf-2000-0_18-n3~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fd1f8d7c5adf195d54ab65a48bdcf0df9ac3c0e0;p=chise%2Fxemacs-chise.git

(Qcode_offset): New variable.
(Fmake_charset): Use `XUINT' to get value of `min-code' and
`max-code'; accept new property `code-offset'.
(syms_of_mule_charset): Add new symbol `code-offset'.
---

diff --git a/src/mule-charset.c b/src/mule-charset.c
index b11d06e..dc1952c 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -385,7 +385,7 @@ Lisp_Object Qreverse_direction_charset;
 Lisp_Object Qleading_byte;
 Lisp_Object Qshort_name, Qlong_name;
 #ifdef UTF2000
-Lisp_Object Qmin_code, Qmax_code;
+Lisp_Object Qmin_code, Qmax_code, Qcode_offset;
 Lisp_Object Qmother, Qconversion, Q94x60;
 #endif
 
@@ -1478,8 +1478,8 @@ character set.  Recognized properties are:
   Lisp_Object charset;
   Lisp_Object ccl_program = Qnil;
   Lisp_Object short_name = Qnil, long_name = Qnil;
-  int min_code = 0, max_code = 0;
   Lisp_Object mother = Qnil;
+  int min_code = 0, max_code = 0, code_offset = 0;
   int byte_offset = -1;
   int conversion = 0;
 
@@ -1579,29 +1579,27 @@ character set.  Recognized properties are:
 	  }
 
 #ifdef UTF2000
+	else if (EQ (keyword, Qmother))
+	  {
+	    mother = Fget_charset (value);
+	  }
+
 	else if (EQ (keyword, Qmin_code))
 	  {
 	    CHECK_INT (value);
-	    min_code = XINT (value);
-	    if (min_code < 0)
-	      {
-		min_code = (~(-1 - min_code)) & 0x7FFFFFFF;
-	      }
+	    min_code = XUINT (value);
 	  }
 
 	else if (EQ (keyword, Qmax_code))
 	  {
 	    CHECK_INT (value);
-	    max_code = XINT (value);
-	    if (max_code < 0)
-	      {
-		max_code = (~(-1 - max_code)) & 0x7FFFFFFF;
-	      }
+	    max_code = XUINT (value);
 	  }
 
-	else if (EQ (keyword, Qmother))
+	else if (EQ (keyword, Qcode_offset))
 	  {
-	    mother = Fget_charset (value);
+	    CHECK_INT (value);
+	    code_offset = XUINT (value);
 	  }
 
 	else if (EQ (keyword, Qconversion))
@@ -1671,7 +1669,7 @@ character set.  Recognized properties are:
   charset = make_charset (id, name, chars, dimension, columns, graphic,
 			  final, direction, short_name, long_name,
 			  doc_string, registry,
-			  Qnil, min_code, max_code, 0, byte_offset,
+			  Qnil, min_code, max_code, code_offset, byte_offset,
 			  mother, conversion);
   if (!NILP (ccl_program))
     XCHARSET_CCL_PROGRAM (charset) = ccl_program;
@@ -2393,9 +2391,10 @@ syms_of_mule_charset (void)
   defsymbol (&Qshort_name, "short-name");
   defsymbol (&Qlong_name, "long-name");
 #ifdef UTF2000
+  defsymbol (&Qmother, "mother");
   defsymbol (&Qmin_code, "min-code");
   defsymbol (&Qmax_code, "max-code");
-  defsymbol (&Qmother, "mother");
+  defsymbol (&Qcode_offset, "code-offset");
   defsymbol (&Qconversion, "conversion");
   defsymbol (&Q94x60, "94x60");
 #endif