diff options
author | Andy Hefner <ahefner@common-lisp.net> | 2009-06-14 18:37:39 +0000 |
---|---|---|
committer | Andy Hefner <ahefner@common-lisp.net> | 2009-06-14 18:37:39 +0000 |
commit | 752e6a0e18cbd6831f8a44eeaf7dc054fc8aebbf (patch) | |
tree | ccd202f08a414f11b35a9db289a5249b1c95dcbd /Experimental | |
parent | 3cb1e51a766675dc08c7935f6cc5b23d2d0e63eb (diff) |
Transform :fixed to :fix during font lookup. Apparently necessary to run
on a machine without fontconfig.
Diffstat (limited to 'Experimental')
-rw-r--r-- | Experimental/freetype/xrender-fonts.lisp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Experimental/freetype/xrender-fonts.lisp b/Experimental/freetype/xrender-fonts.lisp index 8fb4fd8f..a58972c5 100644 --- a/Experimental/freetype/xrender-fonts.lisp +++ b/Experimental/freetype/xrender-fonts.lisp @@ -439,6 +439,7 @@ (setf face (or face :roman)) (setf family (or family :fix)) (setf size (or size :normal)) + (when (eq family :fixed) (setf family :fix)) (cond (size (setf size (getf *sizes* size size)) (let ((val (gethash (list display family face size) *display-face-hash*))) |