Mercurial > emacs
changeset 97914:3202a37b62f3
(font-show-log): Fix previous change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 01 Sep 2008 07:17:04 +0000 |
| parents | 358ab4e4f102 |
| children | b533413d3d47 |
| files | lisp/international/mule-diag.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-diag.el Mon Sep 01 07:15:03 2008 +0000 +++ b/lisp/international/mule-diag.el Mon Sep 01 07:17:04 2008 +0000 @@ -1299,11 +1299,12 @@ (nth 13 fields) 16))))))))))) ;;;###autoload -(defun font-show-log (&optional n) +(defun font-show-log (&optional limit) "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") +Prefix arg LIMIT says how many fonts to show for each listing. +The default is 20. If LIMIT is negative, do not limit the listing." + (interactive "P") + (setq limit (if limit (prefix-numeric-value limit) 20)) (if (eq font-log t) (message "Font logging is currently suppressed") (with-output-to-temp-buffer "*Help*" @@ -1316,7 +1317,7 @@ (catch 'tag (mapc #'(lambda (x) (setq i (1+ i)) - (when (= i n) + (when (= i limit) (insert " ...\n") (throw 'tag nil)) (insert (format " %s\n" x)))