diff options
| author | Karoly Lorentey <lorentey@elte.hu> | 2004-06-14 20:00:54 +0000 |
|---|---|---|
| committer | Karoly Lorentey <lorentey@elte.hu> | 2004-06-14 20:00:54 +0000 |
| commit | 987a34896f0f07c76a87314ee444467903632aeb (patch) | |
| tree | 5e982f524d8a38b1156fd5c7c93517170a4e6764 /lisp/cus-face.el | |
| parent | 71a96040ef5a4a8a308a109c45bbabb20769beac (diff) | |
| parent | 4060d762b6bd7a2e7e6d0c57154beac00496c9d6 (diff) | |
| download | emacs-987a34896f0f07c76a87314ee444467903632aeb.tar.gz | |
Merged in changes from CVS trunk.
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-398
Tweak permissions
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-399
Tweak directory permissions
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-400
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-401
More build-in-place tweaking of arch tagging
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-402
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-403
Yet more build-in-place tweaking of arch tagging
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-404
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-405
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-406
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-407
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-199
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 b5716da161a..0bd3387d3c7 100644 --- a/lisp/cus-face.el +++ b/lisp/cus-face.el @@ -40,15 +40,11 @@ (unless (facep face) ;; If the user has already created the face, respect that. (let ((value (or (get face 'saved-face) spec)) - (frames (frame-list)) - (have-window-system (memq initial-window-system '(x w32))) - frame) + (have-window-system (memq initial-window-system '(x w32)))) ;; 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 (memq (window-system frame) '(x w32)) (setq have-window-system t))) |