Mercurial > hg > xemacs-beta

comparison lisp/custom/cus-face.el @ 201:eb5470882647 r20-3b27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b27
author cvs
date Mon, 13 Aug 2007 10:01:22 +0200
parents 169c0442b401
children e45d5e7c476e
comparison
equal deleted inserted replaced
200:f0deb0c0e6be 201:eb5470882647
36 ;; If the user has already created the face, respect that. 36 ;; If the user has already created the face, respect that.
37 (let ((value (or (get face 'saved-face) spec)) 37 (let ((value (or (get face 'saved-face) spec))
38 (frames (relevant-custom-frames)) 38 (frames (relevant-custom-frames))
39 frame) 39 frame)
40 ;; Create global face. 40 ;; Create global face.
41 (make-face face) 41 (make-empty-face face)
42 (face-display-set face value) 42 (face-display-set face value)
43 ;; Create frame local faces 43 ;; Create frame local faces
44 (while frames 44 (while frames
45 (setq frame (car frames) 45 (setq frame (car frames)
46 frames (cdr frames)) 46 frames (cdr frames))
47 (face-display-set face value frame)))) 47 (face-display-set face value frame))
48 (init-face-from-resources face)))
48 (when (and doc (null (face-doc-string face))) 49 (when (and doc (null (face-doc-string face)))
49 (set-face-doc-string face doc)) 50 (set-face-doc-string face doc))
50 (custom-handle-all-keywords face args 'custom-face) 51 (custom-handle-all-keywords face args 'custom-face)
51 (run-hooks 'custom-define-hook)) 52 (run-hooks 'custom-define-hook))
52 face) 53 face)
254 (put face 'saved-face spec) 255 (put face 'saved-face spec)
255 (when now 256 (when now
256 (put face 'force-face t)) 257 (put face 'force-face t))
257 (when (or now (find-face face)) 258 (when (or now (find-face face))
258 (unless (find-face face) 259 (unless (find-face face)
259 (make-face face)) 260 (make-empty-face face))
260 (face-spec-set face spec)) 261 (face-spec-set face spec))
261 (setq args (cdr args))) 262 (setq args (cdr args)))
262 ;; Old format, a plist of FACE SPEC pairs. 263 ;; Old format, a plist of FACE SPEC pairs.
263 (let ((face (nth 0 args)) 264 (let ((face (nth 0 args))
264 (spec (nth 1 args))) 265 (spec (nth 1 args)))