From: tomo <tomo>
Date: Sat, 15 Jan 2000 11:01:24 +0000 (+0000)
Subject: (MAKE_CHAR): Delete builtin support for `Vcharset_katakana_jisx0201'.
X-Git-Tag: r21-2-19-utf-2000-0_13-0~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fcac60f2dc76ff814e0e382a1c99a6d81eb2752b;p=chise%2Fxemacs-chise.git-

(MAKE_CHAR): Delete builtin support for `Vcharset_katakana_jisx0201'.
---

diff --git a/src/char-ucs.h b/src/char-ucs.h
index d68c500..dd9aacf 100644
--- a/src/char-ucs.h
+++ b/src/char-ucs.h
@@ -458,13 +458,7 @@ MAKE_CHAR (Lisp_Object charset, int c1, int c2)
       else
 	return XCHAR (ch);
     }
-  if (EQ (charset, Vcharset_katakana_jisx0201))
-    if (c1 < 0x60)
-      return c1 + MIN_CHAR_HALFWIDTH_KATAKANA - 33;
-    else
-      /* return MIN_CHAR_94 + ('I' - '0') * 94 + (c1 - 33); */
-      return ' ';
-  else if (XCHARSET_UCS_MAX (charset))
+  if (XCHARSET_UCS_MAX (charset))
     {
       Emchar code
 	= (XCHARSET_DIMENSION (charset) == 1