diff options
| -rw-r--r-- | lisp/international/mule-diag.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 298408258f1..32b80a583d0 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el | |||
| @@ -186,7 +186,9 @@ but contains full information about each character sets." | |||
| 186 | (princ " (Big5)")) | 186 | (princ " (Big5)")) |
| 187 | ((eq type 4) | 187 | ((eq type 4) |
| 188 | (princ " (do conversion by CCL program)")) | 188 | (princ " (do conversion by CCL program)")) |
| 189 | (t (princ "invalid coding-system.")))) | 189 | ((eq type 5) |
| 190 | (princ " (text with random binary characters)")) | ||
| 191 | (t (princ ": invalid coding-system.")))) | ||
| 190 | (princ "\nEOL type:\n ") | 192 | (princ "\nEOL type:\n ") |
| 191 | (let ((eol-type (coding-system-eol-type coding-system))) | 193 | (let ((eol-type (coding-system-eol-type coding-system))) |
| 192 | (cond ((vectorp eol-type) | 194 | (cond ((vectorp eol-type) |