(print-coding-system):

Handle (SYMBOL . SYMBOL) as the flags of a type 4 coding system.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 180564c7c98af67aea03bb493f0db18cfbe2c2be..7fbe09eb54c9f2f96da664a93c74f44036acdf36 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -446,15 +446,19 @@ at the place of `..':
               (princ (if (aref flags idx) 1 0))))
            ((eq type 4)                ; CCL
             (let (i len)
-              (setq i 0 len (length (car flags)))
-              (while (< i len)
-                (princ (format " %x" (aref (car flags) i)))
-                (setq i (1+ i)))
+              (if (symbolp (car flags))
+                  (princ (format " %s" (car flags)))
+                (setq i 0 len (length (car flags)))
+                (while (< i len)
+                  (princ (format " %x" (aref (car flags) i)))
+                  (setq i (1+ i))))
               (princ ",")
-              (setq i 0 len (length (cdr flags)))
-              (while (< i len)
-                (princ (format " %x" (aref (cdr flags) i)))
-                (setq i (1+ i)))))
+              (if (symbolp (cdr flags))
+                  (princ (format "%s" (cdr flags)))
+                (setq i 0 len (length (cdr flags)))
+                (while (< i len)
+                  (princ (format " %x" (aref (cdr flags) i)))
+                  (setq i (1+ i))))))
            (t (princ 0)))
       (princ ":")
       (princ (coding-system-doc-string coding-system))