* international/mule-diag.el (describe-font-internal): Change

ignored argument to IGNORED.
(describe-font): Elide unnecessary argument to
describe-font-internal (Bug#2945).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc90de2b4ff7e9667af0cff2ada24f874ce361d6..1162741502d9cb92a5a360ccf398a19c07fcc4a9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2009-04-11  Chong Yidong  <cyd@stupidchicken.com>
+
+       * international/mule-diag.el (describe-font-internal): Change
+       ignored argument to IGNORED.
+       (describe-font): Elide unnecessary argument to
+       describe-font-internal (Bug#2945).
+
 2009-04-10  Richard M Stallman  <rms@gnu.org>
 
        * mail/rmailedit.el (rmail-cease-edit): Call rmail-modify-format.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index bc8ffbb7824e100a574aed420dda7e995f87a7d5..cf979c60bcb0563afb0bd3b5c5237a854d90c120 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -810,8 +810,9 @@ but still contains full information about each coding system."
 
 (declare-function font-info "font.c" (name &optional frame))
 
-(defun describe-font-internal (font-info &optional verbose)
-  "Print information about a font in FONT-INFO."
+(defun describe-font-internal (font-info &optional ignored)
+  "Print information about a font in FONT-INFO.
+The IGNORED argument is ignored."
   (print-list "name (opened by):" (aref font-info 0))
   (print-list "       full name:" (aref font-info 1))
   (print-list "            size:" (format "%2d" (aref font-info 2)))
@@ -839,7 +840,7 @@ The font must be already used by Emacs."
            (message "No information about \"%s\"" (font-xlfd-name fontname))
          (message "No matching font found"))
       (with-output-to-temp-buffer "*Help*"
-       (describe-font-internal font-info 'verbose)))))
+       (describe-font-internal font-info)))))
 
 (defun print-fontset-element (val)
   ;; VAL has this format: