Mercurial > emacs
changeset 102934:ed0a00c1025a
* international/mule-diag.el (describe-font-internal): Change
ignored argument to IGNORED.
(describe-font): Elide unnecessary argument to
describe-font-internal (Bug#2945).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 11 Apr 2009 14:44:16 +0000 |
| parents | 6e0dd27347d9 |
| children | f57e672f2ca5 |
| files | lisp/ChangeLog lisp/international/mule-diag.el |
| diffstat | 2 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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: