# HG changeset patch
# User janv
# Date 1008713234 0
# Node ID 958d47e9d2c4005eb873e86df3aa52704b681a9a
# Parent  886e8336311654af1fbf249e3c511520dcabe1ab
[xemacs-hg @ 2001-12-18 22:07:13 by janv]
Make GTK default faces customizable

diff -r 886e83363116 -r 958d47e9d2c4 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Dec 17 15:58:18 2001 +0000
+++ b/lisp/ChangeLog	Tue Dec 18 22:07:14 2001 +0000
@@ -1,3 +1,10 @@
+2001-11-29  John Paul Wallington <jpw@shootybangbang.com>
+
+	* gtk-faces.el (gtk-init-device-faces): Replaced device locale 
+	argument in set-face-background/foreground forms with 
+	'(default gtk) tag set to make the faces customizable, as
+	suggested by Jan Vroonhof.
+
 2001-12-15  John Paul Wallington  <jpw@shootybangbang.com>
 
 	* modeline.el:
diff -r 886e83363116 -r 958d47e9d2c4 lisp/gtk-faces.el
--- a/lisp/gtk-faces.el	Mon Dec 17 15:58:18 2001 +0000
+++ b/lisp/gtk-faces.el	Tue Dec 18 22:07:14 2001 +0000
@@ -70,16 +70,16 @@
 	   )
       (set-face-foreground 'highlight
 			   (nth prelight (plist-get style 'text))
-			   device)
+			   nil '(gtk default))
       (set-face-background 'highlight
 			   (nth prelight (plist-get style 'background))
-			   device)
+			   nil '(gtk default))
       (set-face-foreground 'zmacs-region
 			   (nth selected (plist-get style 'text))
-			   device)
+			   nil '(gtk default))
       (set-face-background 'zmacs-region
 			   (nth selected (plist-get style 'background))
-			   device))
+			   nil '(gtk default))
     (set-face-background 'text-cursor "red3" device)))
 
 ;;; This is called from `init-frame-faces', which is called from