Mercurial > emacs

changeset 97536:eba6b2798c48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-show-log): Add optional arg N to control the limit of font listing.
author Kenichi Handa <handa@m17n.org>
date Mon, 18 Aug 2008 12:04:20 +0000
parents f13d2ef47961
children 1e0f10eba754
files lisp/international/mule-diag.el
diffstat 1 files changed, 7 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-diag.el	Mon Aug 18 05:33:28 2008 +0000
+++ b/lisp/international/mule-diag.el	Mon Aug 18 12:04:20 2008 +0000
@@ -1299,9 +1299,11 @@
 					       (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 @@
 	(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)))