Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/msw-faces.el	Mon Aug 13 10:35:07 2007 +0200
+++ b/lisp/msw-faces.el	Mon Aug 13 10:35:54 2007 +0200
@@ -32,15 +32,13 @@
 ;;; ensure that the default face has some reasonable fallbacks if nothing
 ;;; else is specified.
 (defun mswindows-init-device-faces (device)
-  (or (face-font 'default 'global)
-      (set-face-font 'default "Courier New:Regular:10")
-      'global)
-  (or (face-foreground 'default 'global)
-      (set-face-foreground 'default "black" 'global 'mswindows))
-  (or (face-background 'default 'global)
-      (set-face-background 'default "white" 'global 'mswindows))
-  (or (face-background 'modeline 'global)
-      (set-face-background 'modeline "grey75" 'global 'mswindows))
+  (set-face-font 'default 
+		 '((mswindows default) . "Courier New:Regular:10") 'global)
+  ;; 3d objects
+  (set-face-foreground '3d-object '((mswindows default) . "Black") 'global)
+  (set-face-background '3d-object '((mswindows default) . "Gray75") 'global)
+  (set-face-foreground 'default '((mswindows default) . "black") 'global)
+  (set-face-background 'default '((mswindows default) . "white") 'global)
   )