Mercurial > hg > xemacs-beta

changeset 702:958d47e9d2c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-12-18 22:07:13 by janv] Make GTK default faces customizable
author janv
date Tue, 18 Dec 2001 22:07:14 +0000
parents 886e83363116
children db1ced2998c3
files lisp/ChangeLog lisp/gtk-faces.el
diffstat 2 files changed, 11 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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:
--- 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