Commit bcd79f83 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(font-show-log): Limit each listing

to 20 items.
parent 955b979c
......@@ -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)))
(insert (format " %s\n" elt)))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment