diff options
author | Kenichi Handa <[email protected]> | 2008-08-18 12:04:35 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 2008-08-18 12:04:35 +0000 |
commit | 4ab088c087da03de9f6878e8548d46f754b968a6 (patch) | |
tree | 33e93385d59f2f7dc6f3a638b8d9883ab4708850 /lisp/international/mule-diag.el | |
parent | a971635315e259c076de020b3676c04d1dcc415e (diff) |
(font-show-log): Add optional arg N to control the limit of font
listing.
Diffstat (limited to 'lisp/international/mule-diag.el')
-rw-r--r-- | lisp/international/mule-diag.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 9357184634..720201b4f1 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -1299,9 +1299,11 @@ character)") (nth 13 fields) 16))))))))))) ;;;###autoload -(defun font-show-log () - "Show log of font listing and opening." - (interactive) +(defun font-show-log (&optional n) + "Show log of font listing and opening. +Prefix arg N says how many fonts to show for each listing. +The default is 20. If N is negative, do not limit the listing." + (interactive "p") (if (eq font-log t) (message "Font logging is currently suppressed") (with-output-to-temp-buffer "*Help*" @@ -1310,12 +1312,11 @@ character)") (insert (format "%s: %s\n" (car elt) (cadr elt))) (setq elt (nth 2 elt)) (if (or (vectorp elt) (listp elt)) - (let ((limit 20) - (i 0)) + (let ((i 0)) (catch 'tag (mapc #'(lambda (x) (setq i (1+ i)) - (when (= i 20) + (when (= i n) (insert " ...\n") (throw 'tag nil)) (insert (format " %s\n" x))) |