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

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

2 files changed, 11 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc90de2b4ff..1162741502d 100644
--- 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 bc8ffbb7824..cf979c60bcb 100644
--- 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: