Mercurial > hg > xemacs-beta

comparison lisp/custom/cus-face.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children 6b37e6ddd302
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
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.98 7 ;; Version: 1.9907
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'.
497 ((eq req 'class) 497 ((eq req 'class)
498 (memq class options)) 498 (memq class options))
499 ((eq req 'background) 499 ((eq req 'background)
500 (memq background options)) 500 (memq background options))
501 (t 501 (t
502 (error "Unknown req `%S' with options `%S'" 502 (message (format "\
503 req options))))) 503 Warning: Unknown req `%S' with options `%S'" req options))
504 nil))))
504 match))) 505 match)))
505 506
506 (defun custom-relevant-frames () 507 (defun custom-relevant-frames ()
507 "List of frames whose custom properties differ from the default." 508 "List of frames whose custom properties differ from the default."
508 (let ((relevant nil) 509 (let ((relevant nil)