Commit 0d5f1e3a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(print-coding-system):

Handle (SYMBOL . SYMBOL) as the flags of a type 4 coding system.
parent 7a7ab107
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment