From fcac60f2dc76ff814e0e382a1c99a6d81eb2752b Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 15 Jan 2000 11:01:24 +0000 Subject: [PATCH] (MAKE_CHAR): Delete builtin support for `Vcharset_katakana_jisx0201'. --- src/char-ucs.h | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) 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 -- 1.7.10.4