From e4ec81fbd233e6bfe1c940d9fb0e901d839b3a67 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 10 Nov 1999 05:26:28 +0000 Subject: [PATCH] (Fmake_charset): Setup byte_offset for {94|96}^n-set. --- src/mule-charset.c | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) 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, -- 1.7.10.4