Mercurial > emacs
comparison src/coding.c @ 24344:8b7ef7fb9e2e
(Fdecode_sjis_char): In case of error, use %x for
formatting error message.
(Fdecode_big5_char): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 18 Feb 1999 12:52:07 +0000 |
| parents | 2eec590faf26 |
| children | 61c6b3be1d51 |
comparison
equal
deleted
inserted
replaced
| 24343:d00b069a7d17 | 24344:8b7ef7fb9e2e |
|---|---|
| 5038 XSETFASTINT (val, s2); | 5038 XSETFASTINT (val, s2); |
| 5039 else if (s2 >= 0xA0 || s2 <= 0xDF) | 5039 else if (s2 >= 0xA0 || s2 <= 0xDF) |
| 5040 XSETFASTINT (val, | 5040 XSETFASTINT (val, |
| 5041 MAKE_NON_ASCII_CHAR (charset_katakana_jisx0201, s2, 0)); | 5041 MAKE_NON_ASCII_CHAR (charset_katakana_jisx0201, s2, 0)); |
| 5042 else | 5042 else |
| 5043 error ("Invalid Shift JIS code: %d", XFASTINT (code)); | 5043 error ("Invalid Shift JIS code: %x", XFASTINT (code)); |
| 5044 } | 5044 } |
| 5045 else | 5045 else |
| 5046 { | 5046 { |
| 5047 if ((s1 < 0x80 || s1 > 0x9F && s1 < 0xE0 || s1 > 0xEF) | 5047 if ((s1 < 0x80 || s1 > 0x9F && s1 < 0xE0 || s1 > 0xEF) |
| 5048 || (s2 < 0x40 || s2 == 0x7F || s2 > 0xFC)) | 5048 || (s2 < 0x40 || s2 == 0x7F || s2 > 0xFC)) |
| 5049 error ("Invalid Shift JIS code: %d", XFASTINT (code)); | 5049 error ("Invalid Shift JIS code: %x", XFASTINT (code)); |
| 5050 DECODE_SJIS (s1, s2, c1, c2); | 5050 DECODE_SJIS (s1, s2, c1, c2); |
| 5051 XSETFASTINT (val, MAKE_NON_ASCII_CHAR (charset_jisx0208, c1, c2)); | 5051 XSETFASTINT (val, MAKE_NON_ASCII_CHAR (charset_jisx0208, c1, c2)); |
| 5052 } | 5052 } |
| 5053 return val; | 5053 return val; |
| 5054 } | 5054 } |
| 5097 CHECK_NUMBER (code, 0); | 5097 CHECK_NUMBER (code, 0); |
| 5098 b1 = (XFASTINT (code)) >> 8, b2 = (XFASTINT (code)) & 0xFF; | 5098 b1 = (XFASTINT (code)) >> 8, b2 = (XFASTINT (code)) & 0xFF; |
| 5099 if (b1 == 0) | 5099 if (b1 == 0) |
| 5100 { | 5100 { |
| 5101 if (b2 >= 0x80) | 5101 if (b2 >= 0x80) |
| 5102 error ("Invalid BIG5 code: %d", XFASTINT (code)); | 5102 error ("Invalid BIG5 code: %x", XFASTINT (code)); |
| 5103 val = code; | 5103 val = code; |
| 5104 } | 5104 } |
| 5105 else | 5105 else |
| 5106 { | 5106 { |
| 5107 if ((b1 < 0xA1 || b1 > 0xFE) | 5107 if ((b1 < 0xA1 || b1 > 0xFE) |
| 5108 || (b2 < 0x40 || (b2 > 0x7E && b2 < 0xA1) || b2 > 0xFE)) | 5108 || (b2 < 0x40 || (b2 > 0x7E && b2 < 0xA1) || b2 > 0xFE)) |
| 5109 error ("Invalid BIG5 code: %d", XFASTINT (code)); | 5109 error ("Invalid BIG5 code: %x", XFASTINT (code)); |
| 5110 DECODE_BIG5 (b1, b2, charset, c1, c2); | 5110 DECODE_BIG5 (b1, b2, charset, c1, c2); |
| 5111 XSETFASTINT (val, MAKE_NON_ASCII_CHAR (charset, c1, c2)); | 5111 XSETFASTINT (val, MAKE_NON_ASCII_CHAR (charset, c1, c2)); |
| 5112 } | 5112 } |
| 5113 return val; | 5113 return val; |
| 5114 } | 5114 } |
