Paul Stodghill <stodghil(a)cs.cornell.edu> writes:
Would something like the following make sense?
That is more like the old 'save-initial-default-font' solution. Try
this one instead. This makes x-init-face-from-resources actually
work like I described. i.e. if there have been no previous
customizations, then apply the resources. As a bonus this also fixes
the "background color reverts to grey when using font-menu problems"
by slightly changing the way custom interacts with resources (custom
now only overrides those resources you actually set).
bolzano:/scratch/vroonhof/cvs/xemacs-20> cvs diff -u lisp/x-faces.el
Index: lisp/x-faces.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs-20/lisp/x-faces.el,v
retrieving revision 1.12
diff -u -u -r1.12 x-faces.el
--- x-faces.el 1998/07/10 02:49:02 1.12
+++ x-faces.el 1999/02/18 02:09:12
@@ -604,10 +604,10 @@
(set-face-font 'default
"-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*")
'global)
- (or (face-foreground 'default 'global)
- (set-face-foreground 'default "black" 'global 'x))
+ (or (face-foreground 'default 'global '(default))
+ (set-face-foreground 'default "black" 'global '(x default)))
(or (face-background 'default 'global)
- (set-face-background 'default "gray80" 'global 'x)))
+ (set-face-background 'default "gray80" 'global '(x
default))))
;;; x-init-device-faces is responsible for initializing default
;;; values for faces on a newly created device.
bolzano:/scratch/vroonhof/cvs/xemacs-20>