commit: Compute size for Xft fonts.

changeset: 4362:f5693b5f7f2d6198ebb86a8983b786e62b3d4c05 tag: tip user: Mike Sperber <sperber(a)deinprogramm.de&gt; date: Thu Dec 27 08:16:15 2007 +0100 files: lisp/ChangeLog lisp/font.el lisp/fontconfig.el description: Compute size for Xft fonts. 2007-12-23 Mike Sperber <mike(a)xemacs.org&gt; * 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. diff -r 146742e30f05ab3437ec96ac13b33feb2a8e3ba7 -r f5693b5f7f2d6198ebb86a8983b786e62b3d4c05 lisp/ChangeLog --- a/lisp/ChangeLog Wed Dec 26 22:38:40 2007 -0800 +++ b/lisp/ChangeLog Thu Dec 27 08:16:15 2007 +0100 ＠＠ -1,3 +1,11 ＠＠ 2007-12-22 Stephen J. Turnbull <stephe +2007-12-23 Mike Sperber <mike(a)xemacs.org&gt; + + * 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. + 2007-12-22 Stephen J. Turnbull <stephen(a)xemacs.org&gt; Factor out lists of operators specially treated by `make-autoload'. diff -r 146742e30f05ab3437ec96ac13b33feb2a8e3ba7 -r f5693b5f7f2d6198ebb86a8983b786e62b3d4c05 lisp/font.el --- a/lisp/font.el Wed Dec 26 22:38:40 2007 -0800 +++ b/lisp/font.el Thu Dec 27 08:16:15 2007 +0100 ＠＠ -813,7 +813,7 ＠＠ Optional DEVICE defaults to `default-x-d (pattern (fc-font-match device (fc-name-parse name))) (font-obj (make-font)) (family (fc-pattern-get-family pattern 0)) - (size (fc-pattern-get-size pattern 0)) + (size (fc-pattern-get-or-compute-size pattern 0)) (weight (fc-pattern-get-weight pattern 0))) (set-font-family font-obj (and (not (equal family 'fc-result-no-match)) diff -r 146742e30f05ab3437ec96ac13b33feb2a8e3ba7 -r f5693b5f7f2d6198ebb86a8983b786e62b3d4c05 lisp/fontconfig.el --- a/lisp/fontconfig.el Wed Dec 26 22:38:40 2007 -0800 +++ b/lisp/fontconfig.el Thu Dec 27 08:16:15 2007 +0100 ＠＠ -350,6 +350,21 ＠＠ corresponding Xft font slant constant." (let ((pair (assoc str fc-font-name-weight-mapping-string-reverse))) (if pair (cdr pair)))) +(defun fc-pattern-get-or-compute-size (pattern id) + "Get the size from `pattern' associated with `id' or try to compute it. +Returns 'fc-result-no-match if unsucessful." + ;; Many font patterns don't have a "size" property, but do have a + ;; "dpi" and a "pixelsize" property". + (let ((maybe (fc-pattern-get-size pattern id))) + (if (not (eq maybe 'fc-result-no-match)) + maybe + (let ((dpi (fc-pattern-get-dpi pattern id)) + (pixelsize (fc-pattern-get-pixelsize pattern id))) + (if (and (numberp dpi) + (numberp pixelsize)) + (* pixelsize (/ 72 dpi)) + 'fc-result-no-match))))) + (defun fc-copy-pattern-partial (pattern attribute-list) "Return a copy of PATTERN restricted to ATTRIBUTE-LIST. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches