Mercurial > hg > xemacs-beta

comparison lisp/cus-face.el @ 267:966663fcf606 r20-5b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b32
author cvs
date Mon, 13 Aug 2007 10:26:29 +0200
parents 85a06df23a9a
children c9fe270a4101
comparison
equal deleted inserted replaced
266:18d185df8c54 267:966663fcf606
26 ;;; Declaring a face. 26 ;;; Declaring a face.
27 27
28 ;;;###autoload 28 ;;;###autoload
29 (defun custom-declare-face (face spec doc &rest args) 29 (defun custom-declare-face (face spec doc &rest args)
30 "Like `defface', but FACE is evaluated as a normal argument." 30 "Like `defface', but FACE is evaluated as a normal argument."
31 ;; (when (fboundp 'load-gc) 31 ;; (when (fboundp 'pureload)
32 ;; (error "Attempt to declare a face during dump")) 32 ;; (error "Attempt to declare a face during dump"))
33 (unless (get face 'face-defface-spec) 33 (unless (get face 'face-defface-spec)
34 (put face 'face-defface-spec spec) 34 (put face 'face-defface-spec spec)
35 (unless (find-face face) 35 (unless (find-face face)
36 ;; If the user has already created the face, respect that. 36 ;; If the user has already created the face, respect that.