# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1239461056 0
# Node ID ed0a00c1025ae6b5dc94b6b8592a1ae2f2bf7626
# Parent  6e0dd27347d9ab722566e2a26e50aed4e837bb99
* international/mule-diag.el (describe-font-internal): Change
ignored argument to IGNORED.
(describe-font): Elide unnecessary argument to
describe-font-internal (Bug#2945).

diff -r 6e0dd27347d9 -r ed0a00c1025a lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Apr 11 08:54:44 2009 +0000
+++ b/lisp/ChangeLog	Sat Apr 11 14:44:16 2009 +0000
@@ -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 -r 6e0dd27347d9 -r ed0a00c1025a lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Sat Apr 11 08:54:44 2009 +0000
+++ b/lisp/international/mule-diag.el	Sat Apr 11 14:44:16 2009 +0000
@@ -810,8 +810,9 @@
 
 (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 @@
 	    (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: