# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1211460576 0
# Node ID fd38f2fd3d0868474e33e1c7a4b8442299084d0d
# Parent  aa04b6d24b333c89ce6f1b76c34da07f06a75d18
(font-show-log): Limit each listing
to 20 items.

diff -r aa04b6d24b33 -r fd38f2fd3d08 lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Thu May 22 12:27:44 2008 +0000
+++ b/lisp/international/mule-diag.el	Thu May 22 12:49:36 2008 +0000
@@ -1304,7 +1304,16 @@
 	(insert (format "%s: %s\n" (car elt) (cadr elt)))
 	(setq elt (nth 2 elt))
 	(if (or (vectorp elt) (listp elt))
-	    (mapc #'(lambda (x) (insert (format "  %s\n" x))) elt)
+	    (let ((limit 20)
+		  (i 0))
+	      (catch 'tag
+		(mapc #'(lambda (x)
+			  (setq i (1+ i))
+			  (when (= i 20)
+			    (insert "  ...\n")
+			    (throw 'tag nil))
+			  (insert (format "  %s\n" x)))
+		      elt)))
 	  (insert (format "  %s\n" elt)))))))