Mercurial > hg > xemacs-beta

comparison lisp/font.el @ 3360:316fddbf58e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-04-25 14:01:52 by stephent] Repair broken commit to Xft code. <87aca9n4in.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Tue, 25 Apr 2006 14:02:09 +0000
parents d97bc868eaaf
children a5e2d0f90f97
comparison
equal deleted inserted replaced
3359:af8dab703edc 3360:316fddbf58e2
794 "zapf chancery")) 794 "zapf chancery"))
795 ) 795 )
796 "A list of font family mappings on Xft devices.") 796 "A list of font family mappings on Xft devices.")
797 797
798 (defun xft-font-create-object (fontname &optional device) 798 (defun xft-font-create-object (fontname &optional device)
799 "Return a font descriptor object for FONTNAME, appropriate for Xft." 799 "Return a font descriptor object for FONTNAME, appropriate for Xft.
800
801 Optional DEVICE defaults to `default-x-device'."
800 (let* ((name fontname) 802 (let* ((name fontname)
801 (device (or device (default-x-device))) 803 (device (or device (default-x-device)))
802 (pattern (fc-font-real-pattern name device)) 804 (pattern (fc-font-match device (fc-name-parse name)))
803 (font-obj (make-font)) 805 (font-obj (make-font))
804 (family (fc-pattern-get-family pattern 0)) 806 (family (fc-pattern-get-family pattern 0))
805 (size (fc-pattern-get-size pattern 0)) 807 (size (fc-pattern-get-size pattern 0))
806 (weight (fc-pattern-get-weight pattern 0))) 808 (weight (fc-pattern-get-weight pattern 0)))
807 (set-font-family font-obj 809 (set-font-family font-obj