Mercurial > hg > xemacs-beta

comparison lisp/fontconfig.el @ 4021:cef5f57bb9e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-06-21 13:39:08 by aidan] '(lambda ...) -> #'(lambda ...), for the sake of style and the byte compiler.
author aidan
date Thu, 21 Jun 2007 13:39:36 +0000
parents 316fddbf58e2
children f5693b5f7f2d
comparison
equal deleted inserted replaced
4020:77df2f1e36fd 4021:cef5f57bb9e2
479 (objectset '("family" "style"))) 479 (objectset '("family" "style")))
480 (let* ((all-fonts 480 (let* ((all-fonts
481 (fc-list-fonts-pattern-objects device pattern objectset))) 481 (fc-list-fonts-pattern-objects device pattern objectset)))
482 (fc-delete-duplicates 482 (fc-delete-duplicates
483 (mapcar 483 (mapcar
484 '(lambda (pattern) 484 #'(lambda (pattern)
485 (fc-pattern-get-family pattern 0)) 485 (fc-pattern-get-family pattern 0))
486 (if filter-fun 486 (if filter-fun
487 (fc-filter all-fonts filter-fun) 487 (fc-filter all-fonts filter-fun)
488 all-fonts)))))) 488 all-fonts))))))
489 489
490 (defun fc-find-available-weights-for-family (family &optional style device) 490 (defun fc-find-available-weights-for-family (family &optional style device)
494 (objectset '("weight"))) 494 (objectset '("weight")))
495 (fc-pattern-add-family pattern family) 495 (fc-pattern-add-family pattern family)
496 (if style 496 (if style
497 (fc-pattern-add-style pattern style)) 497 (fc-pattern-add-style pattern style))
498 (mapcar 498 (mapcar
499 '(lambda (pattern) 499 #'(lambda (pattern)
500 (let ((fc-weight-constant (fc-pattern-get-weight pattern 0))) 500 (let ((fc-weight-constant (fc-pattern-get-weight pattern 0)))
501 (if fc-weight-constant 501 (if fc-weight-constant
502 (fc-font-weight-translate-from-constant fc-weight-constant)))) 502 (fc-font-weight-translate-from-constant fc-weight-constant))))
503 (fc-list-fonts-pattern-objects device pattern objectset)))) 503 (fc-list-fonts-pattern-objects device pattern objectset))))
504 504
505 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 505 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
506 ;; 506 ;;
507 ;; The XLFD fontname UI 507 ;; The XLFD fontname UI