diff options
| author | Kenichi Handa <handa@m17n.org> | 2008-05-22 12:49:36 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2008-05-22 12:49:36 +0000 |
| commit | bcd79f838dc382f6a90c7908240341787d2699f3 (patch) | |
| tree | a3549d31ebd89fc69fcee18e6831978d3d0b204c /lisp | |
| parent | 955b979c001e116d1443c6e2781d57caf59b4b99 (diff) | |
| download | emacs-bcd79f838dc382f6a90c7908240341787d2699f3.tar.gz emacs-bcd79f838dc382f6a90c7908240341787d2699f3.tar.bz2 emacs-bcd79f838dc382f6a90c7908240341787d2699f3.zip | |
(font-show-log): Limit each listing
to 20 items.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule-diag.el | 11 |
1 files changed, 10 insertions, 1 deletions
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))))))) |