Mercurial > hg > xemacs-beta
comparison lisp/font.el @ 4362:f5693b5f7f2d
Compute size for Xft fonts.
2007-12-23 Mike Sperber <mike@xemacs.org>
* font.el (xft-font-create-object): Use
`fc-pattern-get-or-compute-size' instead of
`fc-pattern-get-size'.
* fontconfig.el (fc-pattern-get-or-compute-size): Add.
| author | Mike Sperber <sperber@deinprogramm.de> |
|---|---|
| date | Thu, 27 Dec 2007 08:16:15 +0100 |
| parents | b4f4e0cc90f1 |
| children | 29efd169efe7 |
comparison
equal
deleted
inserted
replaced
| 4361:146742e30f05 | 4362:f5693b5f7f2d |
|---|---|
| 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 |