small improvement of describe-coding-system

[Werner LEMBERG]

I suggest the following change to describe-coding-system.

  . This makes the output looking similar to describe-character-set
    and describe-language-environment.

  . Multiline strings are formatted better (I just have had to
    introduce such a string for euc-tw).

If you agree, I'll install it.


    Werner


======================================================================

--- mule-diag.el        Tue Dec 18 22:37:09 2001
+++ mule-diag.el.new    Tue Dec 18 23:14:28 2001
@@ -675,6 +675,7 @@
                     (interactive-p))
     (with-output-to-temp-buffer (help-buffer)
       (print-coding-system-briefly coding-system 'doc-string)
+      (princ "\n")
       (let ((coding-spec (coding-system-spec coding-system)))
        (princ "Type: ")
        (let ((type (coding-system-type coding-system))
@@ -814,10 +815,10 @@
              (princ (format " %S" (cons 'alias: (cdr aliases)))))
        (if (memq coding-system aliases)
            (princ (format " (alias of %s)" (car aliases))))))
-    (princ "\n")
+    (princ "\n\n")
     (if (and doc-string
             (setq doc-string (coding-system-doc-string coding-system)))
-       (princ (format "  %s\n" doc-string)))))
+       (princ (format "%s\n" doc-string)))))
 
 ;;;###autoload
 (defun describe-current-coding-system ()