Mercurial > emacs

changeset 21967:9f92d6a5254f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(print-coding-system): Handle (SYMBOL . SYMBOL) as the flags of a type 4 coding system.
author Richard M. Stallman <rms@gnu.org>
date Thu, 07 May 1998 03:52:48 +0000
parents 10183730b250
children 42f675eaceff
files lisp/international/mule-diag.el
diffstat 1 files changed, 12 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-diag.el	Thu May 07 01:05:36 1998 +0000
+++ b/lisp/international/mule-diag.el	Thu May 07 03:52:48 1998 +0000
@@ -446,15 +446,19 @@
 	       (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))