Fix call to FONT-STRUCT:PROPERTIES in GET-FONT-PROPERTY

This commit is contained in:
mainzelm 2003-11-11 06:52:53 +00:00
parent 0b431ba220
commit db62ff412d
1 changed files with 1 additions and 1 deletions

View File

@ -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 *********************