Mercurial > emacs
comparison src/coding.c @ 88977:3b05c02eebf2
(Fdefine_coding_system_internal): Fix category setting
for a coding system of type iso-2022.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 08 Aug 2002 13:01:56 +0000 |
| parents | ad258ee59fbb |
| children | 2b9f8973f240 |
comparison
equal
deleted
inserted
replaced
| 88976:fc96b539a43c | 88977:3b05c02eebf2 |
|---|---|
| 7597 : coding_category_iso_7_tight); | 7597 : coding_category_iso_7_tight); |
| 7598 else | 7598 else |
| 7599 { | 7599 { |
| 7600 int id = XINT (AREF (initial, 1)); | 7600 int id = XINT (AREF (initial, 1)); |
| 7601 | 7601 |
| 7602 category = (((i & (CODING_ISO_FLAG_LOCKING_SHIFT | 7602 category = (((i & CODING_ISO_FLAG_LOCKING_SHIFT) |
| 7603 | CODING_ISO_FLAG_SINGLE_SHIFT)) | |
| 7604 || EQ (args[coding_arg_charset_list], Qiso_2022) | 7603 || EQ (args[coding_arg_charset_list], Qiso_2022) |
| 7605 || id < 0) | 7604 || id < 0) |
| 7606 ? coding_category_iso_8_else | 7605 ? coding_category_iso_8_else |
| 7607 : (CHARSET_DIMENSION (CHARSET_FROM_ID (id)) == 1) | 7606 : (CHARSET_DIMENSION (CHARSET_FROM_ID (id)) == 1) |
| 7608 ? coding_category_iso_8_1 | 7607 ? coding_category_iso_8_1 |
