andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(font-show-log): Limit each listing

Browse source 
to 20 items.
This commit is contained in:
Kenichi Handa 2008-05-22 12:49:36 +00:00
parent 955b979c00
commit bcd79f838d
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/international/mule-diag.el
View file

@ -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)))))))