From 0d5f1e3a1e26e68bb1c8f7d38f64f7fb5202d152 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 7 May 1998 03:52:48 +0000 Subject: [PATCH] (print-coding-system): Handle (SYMBOL . SYMBOL) as the flags of a type 4 coding system. --- lisp/international/mule-diag.el | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) 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)) -- 2.39.2