Index: lisp/x-faces.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs-20/lisp/x-faces.el,v
retrieving revision 1.11
diff -u -u -r1.11 x-faces.el
--- lisp/x-faces.el 1998/05/27 20:41:54 1.11
+++ lisp/x-faces.el 1998/06/22 02:39:35
@@ -473,7 +473,8 @@
     ;; frames or devices because then, common resource specs like
     ;; "*Foreground: black" will have unwanted effects.
     ;;
-    (if (and (eq (face-name face) 'default)
+    (if (and (or (eq (face-name face) 'default)
+		 (eq (face-name face) 'gui-element))
 	     (or (null locale) (eq locale 'global)))
 	(progn
 	  (or fn (setq fn (x-get-resource