Mercurial > emacs

comparison lisp/cus-face.el @ 83389:732c5740ca8f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from miles@gnu.org--gnu-2005 (patch 610-614) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-610 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-611 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-612 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-613 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-614 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-429
author Karoly Lorentey <lorentey@elte.hu>
date Sun, 23 Oct 2005 22:47:29 +0000
parents 532e0a9335a9 03fbd1b84b2f
children 1955a4462bf9
comparison
equal deleted inserted replaced
83388:0cd72d94a6c7 83389:732c5740ca8f
45 ;; Create global face. 45 ;; Create global face.
46 (make-empty-face face) 46 (make-empty-face face)
47 ;; Create frame-local faces 47 ;; Create frame-local faces
48 (dolist (frame (frame-list)) 48 (dolist (frame (frame-list))
49 (face-spec-set face value frame) 49 (face-spec-set face value frame)
50 (when (memq (window-system frame) '(x w32)) 50 (when (memq (window-system frame) '(x w32 mac))
51 (setq have-window-system t))) 51 (setq have-window-system t)))
52 ;; When making a face after frames already exist 52 ;; When making a face after frames already exist
53 (if have-window-system 53 (if have-window-system
54 (make-face-x-resource-internal face))))) 54 (make-face-x-resource-internal face)))))
55 ;; Don't record SPEC until we see it causes no errors. 55 ;; Don't record SPEC until we see it causes no errors.