Mercurial > hg > xemacs-beta

comparison lisp/msw-faces.el @ 298:70ad99077275 r21-0b47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b47
author cvs
date Mon, 13 Aug 2007 10:39:40 +0200
parents 4b85ae5eabfb
children afd57c14dfc8
comparison
equal deleted inserted replaced
297:deca3c1083ac 298:70ad99077275
32 ;;; ensure that the default face has some reasonable fallbacks if nothing 32 ;;; ensure that the default face has some reasonable fallbacks if nothing
33 ;;; else is specified. 33 ;;; else is specified.
34 (defun mswindows-init-device-faces (device) 34 (defun mswindows-init-device-faces (device)
35 (set-face-font 'default 35 (set-face-font 'default
36 '((mswindows default) . "Courier New:Regular:10") 'global) 36 '((mswindows default) . "Courier New:Regular:10") 'global)
37 ;; gui elements
38 (set-face-foreground 'gui-element '((mswindows default) . "Black") 'global)
39 (set-face-background 'gui-element '((mswindows default) . "Gray75") 'global)
40 (set-face-foreground 'default '((mswindows default) . "black") 'global)
41 (set-face-background 'default '((mswindows default) . "white") 'global)
42 ) 37 )
43 38
44 39
45 (defun mswindows-init-frame-faces (frame) 40 (defun mswindows-init-frame-faces (frame)
46 ) 41 )