[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   08/08/18 12:04:20

Index: mule-diag.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-diag.el,v
retrieving revision 1.117
retrieving revision 1.118
diff -u -b -r1.117 -r1.118
--- mule-diag.el        12 Jun 2008 03:56:18 -0000      1.117
+++ mule-diag.el        18 Aug 2008 12:04:20 -0000      1.118
@@ -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)))