Mercurial > emacs
changeset 95200:fd38f2fd3d08
(font-show-log): Limit each listing
to 20 items.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 22 May 2008 12:49:36 +0000 |
| parents | aa04b6d24b33 |
| children | 802ca11b791e |
| files | lisp/international/mule-diag.el |
| diffstat | 1 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)))))))