Mercurial > hg > xemacs-beta

diff lisp/x-faces.el @ 227:0e522484dd2a r20-5b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b12
author cvs
date Mon, 13 Aug 2007 10:12:37 +0200
parents 1f0dabaa0855
children 727739f917cb
line wrap: on
line diff
--- a/lisp/x-faces.el	Mon Aug 13 10:11:42 2007 +0200
+++ b/lisp/x-faces.el	Mon Aug 13 10:12:37 2007 +0200
@@ -374,9 +374,16 @@
 	   (purecopy '("background" (face-background 'default)))
 	   (purecopy '("backgroundToolBarColor"
 		       (or
+			(x-get-resource "backgroundToolBarColor"
+					"BackgroundToolBarColor" 'string)
 			(x-get-resource "background" "Background" 'string)
-			(x-get-resource "backgroundToolBarColor"
-					"BackgroundToolBarColor" 'string))))
+			"Gray80")))
+	   (purecopy '("foregroundToolBarColor"
+		       (or
+			(x-get-resource "foregroundToolBarColor"
+					"ForegroundToolBarColor" 'string)
+			(x-get-resource "foreground" "Foreground" 'string)
+			"Black")))
 	   )))
 
 ;;; internal routines