Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 3360:316fddbf58e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-04-25 14:01:52 by stephent] Repair broken commit to Xft code. <87aca9n4in.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Tue, 25 Apr 2006 14:02:09 +0000
parents ad2f4ae9895b
children 98af8a976fc3
comparison
equal deleted inserted replaced
3359:af8dab703edc 3360:316fddbf58e2
988 (loop for (tag-set . x) in inst-list 988 (loop for (tag-set . x) in inst-list
989 for devtype = (derive-device-type-from-locale-and-tag-set 989 for devtype = (derive-device-type-from-locale-and-tag-set
990 locale tag-set devtype-spec ffpdev) 990 locale tag-set devtype-spec ffpdev)
991 ;; devtype may be nil if it fails to match DEVTYPE-SPEC 991 ;; devtype may be nil if it fails to match DEVTYPE-SPEC
992 if devtype 992 if devtype
993 if (let* ((mapper (if (functionp frob-mapping) frob-mapping 993 if (let* ((mapper
994 (plist-get frob-mapping devtype))) 994 (cond ((functionp frob-mapping) frob-mapping)
995 ((plist-get frob-mapping devtype))
996 (t (error 'unimplemented "mapper" devtype))))
995 (result 997 (result
996 (cond 998 (cond
997 ;; if a vector ... 999 ;; if a vector ...
998 ((vectorp x) 1000 ((vectorp x)
999 (let ((change-to 1001 (let ((change-to