Mercurial > hg > xemacs-beta

comparison lisp/msw-faces.el @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents c42ec1d1cded
children c9fe270a4101
comparison
equal deleted inserted replaced
287:13a0bd77a29d 288:e11d67e05968
30 ;; default and modeline attributes of new frames are specified enough. 30 ;; default and modeline attributes of new frames are specified enough.
31 31
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 (or (face-font 'default 'global) 35 (set-face-font 'default
36 (set-face-font 'default "Courier New:Regular:10") 36 '((mswindows default) . "Courier New:Regular:10") 'global)
37 'global) 37 ;; 3d objects
38 (or (face-foreground 'default 'global) 38 (set-face-foreground '3d-object '((mswindows default) . "Black") 'global)
39 (set-face-foreground 'default "black" 'global 'mswindows)) 39 (set-face-background '3d-object '((mswindows default) . "Gray75") 'global)
40 (or (face-background 'default 'global) 40 (set-face-foreground 'default '((mswindows default) . "black") 'global)
41 (set-face-background 'default "white" 'global 'mswindows)) 41 (set-face-background 'default '((mswindows default) . "white") 'global)
42 (or (face-background 'modeline 'global)
43 (set-face-background 'modeline "grey75" 'global 'mswindows))
44 ) 42 )
45 43
46 44
47 (defun mswindows-init-frame-faces (frame) 45 (defun mswindows-init-frame-faces (frame)
48 ) 46 )