Mercurial > hg > xemacs-beta

comparison lisp/cus-face.el @ 235:85a06df23a9a r20-5b16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b16
author cvs
date Mon, 13 Aug 2007 10:14:40 +0200
parents 78f53ef88e17
children 966663fcf606
comparison
equal deleted inserted replaced
234:946e7f6ce379 235:85a06df23a9a
135 (while atts 135 (while atts
136 (setq att (car atts) 136 (setq att (car atts)
137 atts (cdr atts) 137 atts (cdr atts)
138 get (nth 3 att)) 138 get (nth 3 att))
139 (condition-case nil 139 (condition-case nil
140 ;; This may fail if w3 doesn't exists. 140 ;; This may fail if w3 doesn't exist.
141 (when get 141 (when get
142 (let ((answer (funcall get face frame))) 142 (let ((answer (funcall get face frame)))
143 (unless (equal answer (funcall get 'default frame)) 143 (unless (equal answer (funcall get 'default frame))
144 (when (widget-apply (nth 1 att) :match answer) 144 (when (widget-apply (nth 1 att) :match answer)
145 (setq result (cons (nth 0 att) (cons answer result))))))) 145 (setq result (cons (nth 0 att) (cons answer result)))))))