Mercurial > hg > xemacs-beta

diff lisp/x11/x-faces.el @ 104:cf808b4c4290 r20-1b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b4
author cvs
date Mon, 13 Aug 2007 09:16:51 +0200
parents 131b0175ea99
children 8ff55ebd4be9
line wrap: on
line diff
--- a/lisp/x11/x-faces.el	Mon Aug 13 09:15:51 2007 +0200
+++ b/lisp/x11/x-faces.el	Mon Aug 13 09:16:51 2007 +0200
@@ -496,7 +496,7 @@
   (or (face-foreground 'default 'global)
       (set-face-foreground 'default "black" 'global 'x))
   (or (face-background 'default 'global)
-      (set-face-background 'default "white" 'global 'x)))
+      (set-face-background 'default "gray80" 'global 'x)))
 
 ;;; x-init-device-faces is responsible for initializing default
 ;;; values for faces on a newly created device.
@@ -578,8 +578,8 @@
 	    (progn
 	      (or fg (set-face-foreground 'default "white" device))
 	      (or bg (set-face-background 'default "black" device)))
-	  (or fg (set-face-foreground 'default "black" device))
-	  (or bg (set-face-background 'default "white" device)))))
+	  (or fg (set-face-foreground 'default "white" device))
+	  (or bg (set-face-background 'default "black" device)))))
 
   ;; Don't look at reverseVideo now or initialize the modeline.  This
   ;; is done on a per-frame basis at the appropriate time.