Mercurial > hg > xemacs-beta

diff lisp/x-faces.el @ 298:70ad99077275 r21-0b47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b47
author cvs
date Mon, 13 Aug 2007 10:39:40 +0200
parents e11d67e05968
children 54f7aa390f4f
line wrap: on
line diff
--- a/lisp/x-faces.el	Mon Aug 13 10:38:47 2007 +0200
+++ b/lisp/x-faces.el	Mon Aug 13 10:39:40 2007 +0200
@@ -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