diff options
| author | Richard M. Stallman | 1998-05-07 03:52:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-05-07 03:52:48 +0000 |
| commit | 0d5f1e3a1e26e68bb1c8f7d38f64f7fb5202d152 (patch) | |
| tree | 2dbcaed448f1366c265536353c51b10edfac089c | |
| parent | 7a7ab107f9e6973eaed124ce3a496fc65b51850e (diff) | |
| download | emacs-0d5f1e3a1e26e68bb1c8f7d38f64f7fb5202d152.tar.gz emacs-0d5f1e3a1e26e68bb1c8f7d38f64f7fb5202d152.zip | |
(print-coding-system):
Handle (SYMBOL . SYMBOL) as the flags of a type 4 coding system.
| -rw-r--r-- | lisp/international/mule-diag.el | 20 |
1 files 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 `..': | |||
| 446 | (princ (if (aref flags idx) 1 0)))) | 446 | (princ (if (aref flags idx) 1 0)))) |
| 447 | ((eq type 4) ; CCL | 447 | ((eq type 4) ; CCL |
| 448 | (let (i len) | 448 | (let (i len) |
| 449 | (setq i 0 len (length (car flags))) | 449 | (if (symbolp (car flags)) |
| 450 | (while (< i len) | 450 | (princ (format " %s" (car flags))) |
| 451 | (princ (format " %x" (aref (car flags) i))) | 451 | (setq i 0 len (length (car flags))) |
| 452 | (setq i (1+ i))) | 452 | (while (< i len) |
| 453 | (princ (format " %x" (aref (car flags) i))) | ||
| 454 | (setq i (1+ i)))) | ||
| 453 | (princ ",") | 455 | (princ ",") |
| 454 | (setq i 0 len (length (cdr flags))) | 456 | (if (symbolp (cdr flags)) |
| 455 | (while (< i len) | 457 | (princ (format "%s" (cdr flags))) |
| 456 | (princ (format " %x" (aref (cdr flags) i))) | 458 | (setq i 0 len (length (cdr flags))) |
| 457 | (setq i (1+ i))))) | 459 | (while (< i len) |
| 460 | (princ (format " %x" (aref (cdr flags) i))) | ||
| 461 | (setq i (1+ i)))))) | ||
| 458 | (t (princ 0))) | 462 | (t (princ 0))) |
| 459 | (princ ":") | 463 | (princ ":") |
| 460 | (princ (coding-system-doc-string coding-system)) | 464 | (princ (coding-system-doc-string coding-system)) |