Mercurial > hg > xemacs-beta

diff lisp/x-faces.el @ 215:1f0dabaa0855 r20-4b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b6
author cvs
date Mon, 13 Aug 2007 10:07:35 +0200
parents 41ff10fd062f
children 0e522484dd2a
line wrap: on
line diff
--- a/lisp/x-faces.el	Mon Aug 13 10:06:48 2007 +0200
+++ b/lisp/x-faces.el	Mon Aug 13 10:07:35 2007 +0200
@@ -373,8 +373,10 @@
 	   (purecopy '("foreground" (face-foreground 'default)))
 	   (purecopy '("background" (face-background 'default)))
 	   (purecopy '("backgroundToolBarColor"
-		       (x-get-resource "backgroundToolBarColor"
-				       "BackgroundToolBarColor" 'string)))
+		       (or
+			(x-get-resource "background" "Background" 'string)
+			(x-get-resource "backgroundToolBarColor"
+					"BackgroundToolBarColor" 'string))))
 	   )))
 
 ;;; internal routines