Mercurial > hg > xemacs-beta

comparison lisp/font.el @ 4408:8bbabcab2c42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 20 Jan 2008 13:09:58 +0100
parents f5693b5f7f2d
children 29efd169efe7
comparison
equal deleted inserted replaced
4407:4ee73bbe4f8e 4408:8bbabcab2c42
811 (let* ((name fontname) 811 (let* ((name fontname)
812 (device (or device (default-x-device))) 812 (device (or device (default-x-device)))
813 (pattern (fc-font-match device (fc-name-parse name))) 813 (pattern (fc-font-match device (fc-name-parse name)))
814 (font-obj (make-font)) 814 (font-obj (make-font))
815 (family (fc-pattern-get-family pattern 0)) 815 (family (fc-pattern-get-family pattern 0))
816 (size (fc-pattern-get-size pattern 0)) 816 (size (fc-pattern-get-or-compute-size pattern 0))
817 (weight (fc-pattern-get-weight pattern 0))) 817 (weight (fc-pattern-get-weight pattern 0)))
818 (set-font-family font-obj 818 (set-font-family font-obj
819 (and (not (equal family 'fc-result-no-match)) 819 (and (not (equal family 'fc-result-no-match))
820 family)) 820 family))
821 (set-font-size font-obj 821 (set-font-size font-obj