--- lisp/gtk-faces.el.orig	Mon Nov 19 18:11:12 2001
+++ lisp/gtk-faces.el	Mon Nov 19 21:37:58 2001
@@ -48,10 +48,11 @@
   ;;
   ;; If the "default" face didn't have a font specified, try to pick one.
   ;;
+  ;; Removed device locales - a naive attempt to keep Custom happy.
   (if (not (eq (device-type device) 'gtk))
       nil
     (gtk-init-pointers)
-    '(let* ((style (gtk-style-info device))
+    (let* ((style (gtk-style-info device))
 	   ;;(normal 0)			; GTK_STATE_NORMAL
 	   ;;(active 1)			; GTK_STATE_ACTIVE
 	   (prelight 2)			; GTK_STATE_PRELIGHT
@@ -59,18 +60,18 @@
 	   ;;(insensitive 4)		; GTK_STATE_INSENSITIVE
 	   )
       (set-face-foreground 'highlight
-			   (nth prelight (plist-get style 'text))
-			   device)
+			   (nth prelight (plist-get style 'text)))
+			   ;device)
       (set-face-background 'highlight
-			   (nth prelight (plist-get style 'background))
-			   device)
+			   (nth prelight (plist-get style 'background)))
+			   ;device)
       (set-face-foreground 'zmacs-region
-			   (nth selected (plist-get style 'text))
-			   device)
+			   (nth selected (plist-get style 'text)))
+			   ;device)
       (set-face-background 'zmacs-region
-			   (nth selected (plist-get style 'background))
-			   device))
-    (set-face-background 'text-cursor "red3" device)))
+			   (nth selected (plist-get style 'background))))
+			   ;device))
+    (set-face-background 'text-cursor "red3")))
 
 ;;; This is called from `init-frame-faces', which is called from
 ;;; init_frame_faces() which is called from Fmake_frame(), to perform