Mercurial > emacs

comparison lisp/international/mule-diag.el @ 102934:ed0a00c1025a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 2d1154701720
children 4f9eafb38e10
comparison
equal deleted inserted replaced
102933:6e0dd27347d9 102934:ed0a00c1025a
808 808
809 ;;; FONT 809 ;;; FONT
810 810
811 (declare-function font-info "font.c" (name &optional frame)) 811 (declare-function font-info "font.c" (name &optional frame))
812 812
813 (defun describe-font-internal (font-info &optional verbose) 813 (defun describe-font-internal (font-info &optional ignored)
814 "Print information about a font in FONT-INFO." 814 "Print information about a font in FONT-INFO.
815 The IGNORED argument is ignored."
815 (print-list "name (opened by):" (aref font-info 0)) 816 (print-list "name (opened by):" (aref font-info 0))
816 (print-list " full name:" (aref font-info 1)) 817 (print-list " full name:" (aref font-info 1))
817 (print-list " size:" (format "%2d" (aref font-info 2))) 818 (print-list " size:" (format "%2d" (aref font-info 2)))
818 (print-list " height:" (format "%2d" (aref font-info 3))) 819 (print-list " height:" (format "%2d" (aref font-info 3)))
819 (print-list " baseline-offset:" (format "%2d" (aref font-info 4))) 820 (print-list " baseline-offset:" (format "%2d" (aref font-info 4)))
837 ;; better to print the fontname to show which font has 838 ;; better to print the fontname to show which font has
838 ;; this problem. 839 ;; this problem.
839 (message "No information about \"%s\"" (font-xlfd-name fontname)) 840 (message "No information about \"%s\"" (font-xlfd-name fontname))
840 (message "No matching font found")) 841 (message "No matching font found"))
841 (with-output-to-temp-buffer "*Help*" 842 (with-output-to-temp-buffer "*Help*"
842 (describe-font-internal font-info 'verbose))))) 843 (describe-font-internal font-info)))))
843 844
844 (defun print-fontset-element (val) 845 (defun print-fontset-element (val)
845 ;; VAL has this format: 846 ;; VAL has this format:
846 ;; ((REQUESTED-FONT-NAME OPENED-FONT-NAME ...) ...) 847 ;; ((REQUESTED-FONT-NAME OPENED-FONT-NAME ...) ...)
847 ;; CHAR RANGE is already inserted. Get character codes from 848 ;; CHAR RANGE is already inserted. Get character codes from