From 9291a2d6ae06ca63cf8b17bc124b5dccd0f0b3ab Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 11 Apr 2009 14:44:16 +0000 Subject: [PATCH] * international/mule-diag.el (describe-font-internal): Change ignored argument to IGNORED. (describe-font): Elide unnecessary argument to describe-font-internal (Bug#2945). --- lisp/ChangeLog | 7 +++++++ lisp/international/mule-diag.el | 7 ++++--- 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 + + * 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 * 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: -- 2.39.5