diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-06-13 21:56:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-06-13 21:56:49 +0000 |
| commit | f4db52530aa107c4f3d6e9f7c11984872db9e55c (patch) | |
| tree | fc222bf1f355e6323f919daca6ea59506a2b7459 /lisp/cus-face.el | |
| parent | 38002bffc7c201935ac4610b779ae0d98be35d62 (diff) | |
| download | emacs-f4db52530aa107c4f3d6e9f7c11984872db9e55c.tar.gz | |
(custom-declare-face): Simplify code.
Diffstat (limited to 'lisp/cus-face.el')
| -rw-r--r-- | lisp/cus-face.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/cus-face.el b/lisp/cus-face.el index 1ff07c4c361..e3134e8f1ea 100644 --- a/lisp/cus-face.el +++ b/lisp/cus-face.el @@ -39,15 +39,11 @@ (when (fboundp 'facep) (unless (facep face) ;; If the user has already created the face, respect that. - (let ((value (or (get face 'saved-face) spec)) - (frames (frame-list)) - frame) + (let ((value (or (get face 'saved-face) spec))) ;; Create global face. (make-empty-face face) ;; Create frame-local faces - (while frames - (setq frame (car frames) - frames (cdr frames)) + (dolist (frame (frame-list)) (face-spec-set face value frame))) ;; When making a face after frames already exist (if (memq window-system '(x w32)) |