From: Werner LEMBERG <wl@gnu.org>
Date: Thu, 20 Dec 2001 21:34:02 +0000 (+0000)
Subject: (describe-coding-system, print-coding-system-briefly): Make printed output have a... 
X-Git-Tag: ttn-vms-21-2-B4~17578
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=67ad2f93c26de91123dc7ec03855117031e01172;p=emacs.git

(describe-coding-system, print-coding-system-briefly): Make printed output have a similar
format as describe-character-set.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fce8478e8c8..c1d837ed11a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-12-20  Werner Lemberg  <wl@gnu.org>
+
+	* international/mule-diag.el (describe-coding-system,
+	print-coding-system-briefly): Make printed output have a similar
+	format as describe-character-set.
+
 2001-12-20  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
 	* play/blackbox.el (bb-member): Remove, use member instead.
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 198a852ecfa..f38ca92e897 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -675,6 +675,7 @@ which font is being used for displaying the character."
 		     (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 @@ at the place of `..':
 	      (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 ()