Mercurial > hg > xemacs-beta

comparison lisp/prim/faces.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 acd284d43ca1
children e45d5e7c476e
comparison
equal deleted inserted replaced
200:f0deb0c0e6be 201:eb5470882647
1156 If it is nil, then apply SPEC to each frame individually. 1156 If it is nil, then apply SPEC to each frame individually.
1157 See `defface' for information about SPEC." 1157 See `defface' for information about SPEC."
1158 (if frame 1158 (if frame
1159 (progn 1159 (progn
1160 (reset-face face frame) 1160 (reset-face face frame)
1161 (face-display-set face spec frame)) 1161 (face-display-set face spec frame)
1162 (init-face-from-resources face frame))
1162 (let ((frames (relevant-custom-frames))) 1163 (let ((frames (relevant-custom-frames)))
1163 (reset-face face) 1164 (reset-face face)
1164 (face-display-set face spec) 1165 (face-display-set face spec)
1165 (while frames 1166 (while frames
1166 (face-display-set face spec (car frames)) 1167 (face-display-set face spec (car frames))
1167 (pop frames))))) 1168 (pop frames))
1169 (init-face-from-resources face))))
1168 1170
1169 (defun face-display-set (face spec &optional frame) 1171 (defun face-display-set (face spec &optional frame)
1170 "Set FACE to the attributes to the first matching entry in SPEC. 1172 "Set FACE to the attributes to the first matching entry in SPEC.
1171 Iff optional FRAME is non-nil, set it for that frame only. 1173 Iff optional FRAME is non-nil, set it for that frame only.
1172 See `defface' for information about SPEC." 1174 See `defface' for information about SPEC."