scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ fixed scx-xft-font-match

This commit is contained in:
eknauel 2003-10-27 07:49:20 +00:00
parent dd2a4248c3
commit 6097628ca7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/libs/xft.scm
View File

@ -227,7 +227,8 @@
(call-with-values (call-with-values
(lambda () (lambda ()
(let ((screen-number (screen:number screen))) (let ((screen-number (screen:number screen)))
(scx-xft-font-match-internal display screen-number xft-pattern))) (apply values
(scx-xft-font-match-internal display screen-number xft-pattern))))
(lambda (result xft-pattern) (lambda (result xft-pattern)
(add-finalizer! xft-pattern scx-xft-pattern-destroy) (add-finalizer! xft-pattern scx-xft-pattern-destroy)
(values result xft-pattern)))) (values result xft-pattern))))