Mercurial > emacs
changeset 18798:d4c708a5f181
(make-coding-system): Distinguish coding-category-iso-7-else and
coding-category-iso-8-else.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 15 Jul 1997 08:24:47 +0000 |
| parents | e9aa787f0154 |
| children | 6c0d648d2cf8 |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule.el Tue Jul 15 08:24:47 1997 +0000 +++ b/lisp/international/mule.el Tue Jul 15 08:24:47 1997 +0000 @@ -432,13 +432,14 @@ (put coding-system 'no-initial-designation t)) (setq coding-category (if (aref vec 8) ; Use locking-shift. - 'coding-category-iso-else + (or (and (aref vec 7) 'coding-category-iso-7-else) + 'coding-category-iso-8-else) (if (aref vec 7) ; 7-bit only. (if (aref vec 9) ; Use single-shift. - 'coding-category-iso-else + 'coding-category-iso-7-else 'coding-category-iso-7) (if no-initial-designation - 'coding-category-iso-else + 'coding-category-iso-8-else (if (and (charsetp g1-designation) (= (charset-dimension g1-designation) 2)) 'coding-category-iso-8-2