From: tomo <tomo>
Date: Wed, 10 Nov 1999 05:26:28 +0000 (+0000)
Subject: (Fmake_charset): Setup byte_offset for {94|96}^n-set.
X-Git-Tag: r21-2-19-utf-2000-0_11-0~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e4ec81fbd233e6bfe1c940d9fb0e901d839b3a67;p=chise%2Fxemacs-chise.git.1

(Fmake_charset): Setup byte_offset for {94|96}^n-set.
---

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 324a610..d372477 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -1425,7 +1425,7 @@ character set.  Recognized properties are:
   Lisp_Object rest, keyword, value;
   Lisp_Object ccl_program = Qnil;
   Lisp_Object short_name = Qnil, long_name = Qnil;
-  unsigned char byte_offset = 0;
+  int byte_offset = -1;
 
   CHECK_SYMBOL (name);
   if (!NILP (doc_string))
@@ -1552,6 +1552,17 @@ character set.  Recognized properties are:
 
   if (columns == -1)
     columns = dimension;
+
+  if (byte_offset < 0)
+    {
+      if (chars == 94)
+	byte_offset = 33;
+      else if (chars == 96)
+	byte_offset = 32;
+      else
+	byte_offset = 0;
+    }
+
   charset = make_charset (id, name, type, columns, graphic,
 			  final, direction, short_name, long_name,
 			  doc_string, registry,