From: Andreas Schwab <schwab@linux-m68k.org>
Date: Fri, 23 Sep 2011 16:26:48 +0000 (+0200)
Subject: * lisp/international/mule-diag.el (mule-diag): Insert a newline after
X-Git-Tag: emacs-pretest-24.0.90~33
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a39f27eb9b78ceacdf351eba4549efd3323c88d;p=emacs.git

* lisp/international/mule-diag.el (mule-diag): Insert a newline after
each fontset description.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd5cb9bcac7..0b4a7aaea81 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-23  Andreas Schwab  <schwab@linux-m68k.org>
+
+	* international/mule-diag.el (mule-diag): Insert a newline after
+	each fontset description.
+
 2011-09-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* simple.el (delete-trailing-whitespace):
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index d9ac587231e..cccf65b8051 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1139,7 +1139,8 @@ system which uses fontsets)."
 	(insert "Fontset-Name\t\t\t\t\t\t  WDxHT Style\n")
 	(insert "------------\t\t\t\t\t\t  ----- -----\n")
 	(dolist (fontset (fontset-list))
-	  (print-fontset fontset t)))
+	  (print-fontset fontset t)
+	  (insert "\n")))
       (help-print-return-message))))
 
 ;;;###autoload