[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/09/01 07:17:05

Index: mule-diag.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-diag.el,v
retrieving revision 1.118
retrieving revision 1.119
diff -u -b -r1.118 -r1.119
--- mule-diag.el        18 Aug 2008 12:04:20 -0000      1.118
+++ mule-diag.el        1 Sep 2008 07:17:04 -0000       1.119
@@ -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)))