From: Kenichi Handa <handa@m17n.org>
Date: Thu, 22 May 2008 12:49:36 +0000 (+0000)
Subject: (font-show-log): Limit each listing
X-Git-Tag: emacs-pretest-23.0.90~5360
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bcd79f838dc382f6a90c7908240341787d2699f3;p=emacs.git

(font-show-log): Limit each listing
to 20 items.
---

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 4f837743088..81ee68eb591 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1304,7 +1304,16 @@ character)")
 	(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)))))))