Mercurial > hg > xemacs-beta

comparison lisp/x-font-menu.el @ 3354:15fb91e3a115

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-04-23 16:11:16 by stephent] Xft/fontconfig refactoring, Part I. <87hd4ks29d.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Sun, 23 Apr 2006 16:11:34 +0000
parents ad2f4ae9895b
children 316fddbf58e2
comparison
equal deleted inserted replaced
3353:521d94807505 3354:15fb91e3a115
344 (x-font-menu-load-font-xft family weight size slant resolution) 344 (x-font-menu-load-font-xft family weight size slant resolution)
345 (x-font-menu-load-font-core family weight size slant resolution))) 345 (x-font-menu-load-font-core family weight size slant resolution)))
346 346
347 (defun x-font-menu-load-font-xft (family weight size slant resolution) 347 (defun x-font-menu-load-font-xft (family weight size slant resolution)
348 (let ((pattern (make-fc-pattern))) 348 (let ((pattern (make-fc-pattern)))
349 (fc-pattern-add pattern fc-font-name-property-family family) 349 (fc-pattern-add-family pattern family)
350 (if weight 350 (if weight
351 (fc-pattern-add pattern fc-font-name-property-weight 351 (fc-pattern-add-weight pattern
352 (fc-font-weight-translate-from-string weight))) 352 (fc-font-weight-translate-from-string weight)))
353 (if size 353 (if size
354 (fc-pattern-add pattern fc-font-name-property-size size)) 354 (fc-pattern-add-size pattern size))
355 (if slant 355 (if slant
356 (fc-pattern-add pattern fc-font-name-property-slant 356 (fc-pattern-add-slant pattern
357 (fc-font-slant-translate-from-string slant))) 357 (fc-font-slant-translate-from-string slant)))
358 (make-font-instance (fc-name-unparse pattern)))) 358 (make-font-instance (fc-name-unparse pattern))))
359 359
360 (defun x-font-menu-load-font-core (family weight size slant resolution) 360 (defun x-font-menu-load-font-core (family weight size slant resolution)
361 "Try to load a font with the requested properties. 361 "Try to load a font with the requested properties.
362 The weight, slant and resolution are only hints." 362 The weight, slant and resolution are only hints."