Mercurial > hg > xemacs-beta

comparison lisp/fontconfig.el @ 5384:3889ef128488

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix misspelled words, and some grammar, across the entire source tree. See xemacs-patches message with ID <AANLkTi=edkEKtK3pZ60ytsG5pTJQy2TjAEVCZCLOa-oA@mail.gmail.com>.
author Jerry James <james@xemacs.org>
date Thu, 24 Mar 2011 11:00:11 -0600
parents cd167465bf69
children 4dee0387b9de
comparison
equal deleted inserted replaced
5383:294ab9180fad 5384:3889ef128488
352 (let ((pair (assoc str fc-font-name-weight-mapping-string-reverse))) 352 (let ((pair (assoc str fc-font-name-weight-mapping-string-reverse)))
353 (if pair (cdr pair)))) 353 (if pair (cdr pair))))
354 354
355 (defun fc-pattern-get-or-compute-size (pattern id) 355 (defun fc-pattern-get-or-compute-size (pattern id)
356 "Get the size from `pattern' associated with `id' or try to compute it. 356 "Get the size from `pattern' associated with `id' or try to compute it.
357 Returns 'fc-result-no-match if unsucessful." 357 Returns 'fc-result-no-match if unsuccessful."
358 ;; Many font patterns don't have a "size" property, but do have a 358 ;; Many font patterns don't have a "size" property, but do have a
359 ;; "dpi" and a "pixelsize" property". 359 ;; "dpi" and a "pixelsize" property".
360 (let ((maybe (fc-pattern-get-size pattern id))) 360 (let ((maybe (fc-pattern-get-size pattern id)))
361 (if (not (eq maybe 'fc-result-no-match)) 361 (if (not (eq maybe 'fc-result-no-match))
362 maybe 362 maybe