Mercurial > hg > xemacs-beta

diff lisp/gtk-faces.el @ 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 7039e6323819
children c9bf82d465b5
line wrap: on
line diff
--- 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