From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 7 May 1998 03:52:48 +0000 (+0000)
Subject: (print-coding-system):
X-Git-Tag: emacs-20.3~1110
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d5f1e3a1e26e68bb1c8f7d38f64f7fb5202d152;p=emacs.git

(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 180564c7c98..7fbe09eb54c 100644
--- 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))