(make-coding-system): Distinguish coding-category-iso-7-else and

coding-category-iso-8-else.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index f9a9e07a3c81f22639546e30f2905bce1a48ec04..c28cf485afb192690262453df074bf942b9f8002 100644 (file)
--- 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