# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 868955087 0
# Node ID d4c708a5f1813334468104e167bcbcf8631927d5
# Parent  e9aa787f0154fd6e9f93c54a4ff2eb8c7f96f731
(make-coding-system): Distinguish coding-category-iso-7-else and
coding-category-iso-8-else.

diff -r e9aa787f0154 -r d4c708a5f181 lisp/international/mule.el
--- 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