From: tomo <tomo>
Date: Sat, 18 Sep 1999 02:47:36 +0000 (+0000)
Subject: (MIN_CHAR_HALFWIDTH_KATAKANA): Changed to 0xFF61 from 0xFF60.
X-Git-Tag: r21-2-19-utf-2000-0_8-1~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=173eb2c59c4f1eefabbd6c9a22b71258d20316cb;p=chise%2Fxemacs-chise.git

(MIN_CHAR_HALFWIDTH_KATAKANA): Changed to 0xFF61 from 0xFF60.
(MAKE_CHAR): Change offset for katakana-jisx0201 to 33 from 0x20.
(breakup_char_1): Likewise.
---

diff --git a/src/char-ucs.h b/src/char-ucs.h
index 7302124..c683770 100644
--- a/src/char-ucs.h
+++ b/src/char-ucs.h
@@ -340,7 +340,7 @@ CHARSET_BY_LEADING_BYTE (Charset_ID lb)
 #define MIN_CHAR_THAI		0x0E00
 #define MAX_CHAR_THAI		0x0E5F
 
-#define MIN_CHAR_HALFWIDTH_KATAKANA	0xFF60
+#define MIN_CHAR_HALFWIDTH_KATAKANA	0xFF61
 #define MAX_CHAR_HALFWIDTH_KATAKANA	0xFF9F
 
 #define MIN_CHAR_94		0xE90940
@@ -367,7 +367,7 @@ MAKE_CHAR (Lisp_Object charset, int c1, int c2)
     return decoding_table[c1 - (XCHARSET_CHARS (charset) == 94 ? 33 : 32)];
   else if (EQ (charset, Vcharset_katakana_jisx0201))
     if (c1 < 0x60)
-      return c1 + MIN_CHAR_HALFWIDTH_KATAKANA - 0x20;
+      return c1 + MIN_CHAR_HALFWIDTH_KATAKANA - 33;
     else
       /* return MIN_CHAR_94 + ('I' - '0') * 94 + (c1 - 33); */
       return ' ';
@@ -483,7 +483,7 @@ breakup_char_1 (Emchar c, Lisp_Object *charset, int *c1, int *c2)
 	       && (c <= MAX_CHAR_HALFWIDTH_KATAKANA))
 	{
 	  *charset = Vcharset_katakana_jisx0201;
-	  *c1 = c - MIN_CHAR_HALFWIDTH_KATAKANA + 0x20;
+	  *c1 = c - MIN_CHAR_HALFWIDTH_KATAKANA + 33;
 	  *c2 = 0;
 	}
       else