(describe-coding-system): Describe coding systems of type 5, raw-text.

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."
                  (princ " (Big5)"))
                 ((eq type 4)
                  (princ " (do conversion by CCL program)"))
-                (t (princ "invalid coding-system."))))
+                ((eq type 5)
+                 (princ " (text with random binary characters)"))
+                (t (princ ": invalid coding-system."))))
         (princ "\nEOL type:\n  ")
         (let ((eol-type (coding-system-eol-type coding-system)))
           (cond ((vectorp eol-type)