Mercurial > hg > xemacs-beta

comparison lisp/custom/cus-face.el @ 161:28f395d8dc7a r20-3b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b7
author cvs
date Mon, 13 Aug 2007 09:42:26 +0200
parents 6b37e6ddd302
children 0132846995bd
comparison
equal deleted inserted replaced
160:1c55655d6702 161:28f395d8dc7a
2 ;; 2 ;;
3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
6 ;; Keywords: help, faces 6 ;; Keywords: help, faces
7 ;; Version: 1.9908 7 ;; Version: 1.9916
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;;; Commentary: 10 ;;; Commentary:
11 ;; 11 ;;
12 ;; See `custom.el'. 12 ;; See `custom.el'.
330 att result get) 330 att result get)
331 (while atts 331 (while atts
332 (setq att (car atts) 332 (setq att (car atts)
333 atts (cdr atts) 333 atts (cdr atts)
334 get (nth 3 att)) 334 get (nth 3 att))
335 (when get 335 (condition-case nil
336 (let ((answer (funcall get face frame))) 336 ;; This may fail if w3 doesn't exists.
337 (unless (equal answer (funcall get 'default frame)) 337 (when get
338 (when (widget-apply (nth 1 att) :match answer) 338 (let ((answer (funcall get face frame)))
339 (setq result (cons (nth 0 att) (cons answer result)))))))) 339 (unless (equal answer (funcall get 'default frame))
340 (when (widget-apply (nth 1 att) :match answer)
341 (setq result (cons (nth 0 att) (cons answer result)))))))
342 (error nil)))
340 result)) 343 result))
341 344
342 (defun custom-set-face-bold (face value &optional frame) 345 (defun custom-set-face-bold (face value &optional frame)
343 "Set the bold property of FACE to VALUE." 346 "Set the bold property of FACE to VALUE."
344 (if value 347 (if value