From dc64cd193a729fa6be918b0e749f9d5474b29619 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 15 Jul 1997 08:24:47 +0000 Subject: [PATCH] (make-coding-system): Distinguish coding-category-iso-7-else and coding-category-iso-8-else. --- lisp/international/mule.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index f9a9e07a3c8..c28cf485afb 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -432,13 +432,14 @@ FLAGS specifies more precise information of each TYPE. (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 -- 2.39.5