[Emacs-diffs] emacs/lisp ChangeLog international/mule-diag.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/04/11 14:44:22

Modified files:
        lisp           : ChangeLog 
        lisp/international: mule-diag.el 

Log message:
        * international/mule-diag.el (describe-font-internal): Change
        ignored argument to IGNORED.
        (describe-font): Elide unnecessary argument to
        describe-font-internal (Bug#2945).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15578&r2=1.15579
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-diag.el?cvsroot=emacs&r1=1.125&r2=1.126

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15578
retrieving revision 1.15579
diff -u -b -r1.15578 -r1.15579
--- ChangeLog   10 Apr 2009 15:46:37 -0000      1.15578
+++ ChangeLog   11 Apr 2009 14:44:16 -0000      1.15579
@@ -1,3 +1,10 @@
+2009-04-11  Chong Yidong  <address@hidden>
+
+       * 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  <address@hidden>
 
        * mail/rmailedit.el (rmail-cease-edit): Call rmail-modify-format.

Index: international/mule-diag.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/international/mule-diag.el,v
retrieving revision 1.125
retrieving revision 1.126
diff -u -b -r1.125 -r1.126
--- international/mule-diag.el  13 Mar 2009 05:07:59 -0000      1.125
+++ international/mule-diag.el  11 Apr 2009 14:44:22 -0000      1.126
@@ -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: