# HG changeset patch
# User Werner LEMBERG <wl@gnu.org>
# Date 1008883946 0
# Node ID 2c4fb0cccd48a9c39dfde7d90bfb1babb933651a
# Parent  3dd01dfd38c1f44d2f17d1ff8472a1d9fa808e95
(describe-coding-system, print-coding-system-briefly): Make printed output have a similar
format as describe-character-set.

diff -r 3dd01dfd38c1 -r 2c4fb0cccd48 lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Thu Dec 20 20:14:29 2001 +0000
+++ b/lisp/international/mule-diag.el	Thu Dec 20 21:32:26 2001 +0000
@@ -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 ()