Mercurial > hg > xemacs-beta

diff lisp/x-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 57709be46d1b
children 70ad99077275
line wrap: on
line diff
--- a/lisp/x-faces.el	Mon Aug 13 10:35:07 2007 +0200
+++ b/lisp/x-faces.el	Mon Aug 13 10:35:54 2007 +0200
@@ -362,26 +362,6 @@
 (make-obsolete 'x-make-face-unitalic 'make-face-unitalic)
 
 
-;; Define some logical color names to be used when reading the pixmap files.
-(if (featurep 'xpm)
-    (setq xpm-color-symbols
-	  (list
-	   (purecopy '("foreground" (face-foreground 'default)))
-	   (purecopy '("background" (face-background 'default)))
-	   (purecopy '("backgroundToolBarColor"
-		       (or
-			(x-get-resource "backgroundToolBarColor"
-					"BackgroundToolBarColor" 'string)
-			(x-get-resource "background" "Background" 'string)
-			"Gray80")))
-	   (purecopy '("foregroundToolBarColor"
-		       (or
-			(x-get-resource "foregroundToolBarColor"
-					"ForegroundToolBarColor" 'string)
-			(x-get-resource "foreground" "Foreground" 'string)
-			"Black")))
-	   )))
-
 ;;; internal routines
 
 ;;; x-init-face-from-resources is responsible for initializing a