Fix call to FONT-STRUCT:PROPERTIES in GET-FONT-PROPERTY
This commit is contained in:
parent
0b431ba220
commit
db62ff412d
|
@ -66,7 +66,7 @@
|
||||||
"scx_Free_Font")
|
"scx_Free_Font")
|
||||||
|
|
||||||
(define (get-font-property font-struct atom)
|
(define (get-font-property font-struct atom)
|
||||||
(let ((a (assq atom (font-struct:properties)))) ;; assq ??
|
(let ((a (assq atom (font-struct:properties font-struct)))) ;; assq ??
|
||||||
(and a (cdr a))))
|
(and a (cdr a))))
|
||||||
|
|
||||||
;; *** obtain or free font names and information *********************
|
;; *** obtain or free font names and information *********************
|
||||||
|
|
Loading…
Reference in New Issue