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 `..': ...@@ -446,15 +446,19 @@ at the place of `..':
(princ (if (aref flags idx) 1 0)))) (princ (if (aref flags idx) 1 0))))
((eq type 4) ; CCL ((eq type 4) ; CCL
(let (i len) (let (i len)
(setq i 0 len (length (car flags))) (if (symbolp (car flags))
(while (< i len) (princ (format " %s" (car flags)))
(princ (format " %x" (aref (car flags) i))) (setq i 0 len (length (car flags)))
(setq i (1+ i))) (while (< i len)
(princ (format " %x" (aref (car flags) i)))
(setq i (1+ i))))
(princ ",") (princ ",")
(setq i 0 len (length (cdr flags))) (if (symbolp (cdr flags))
(while (< i len) (princ (format "%s" (cdr flags)))
(princ (format " %x" (aref (cdr flags) i))) (setq i 0 len (length (cdr flags)))
(setq i (1+ i))))) (while (< i len)
(princ (format " %x" (aref (cdr flags) i)))
(setq i (1+ i))))))
(t (princ 0))) (t (princ 0)))
(princ ":") (princ ":")
(princ (coding-system-doc-string coding-system)) (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