XEmacs 21.2.33 "Melpomene".

[chise/xemacs-chise.git] / src / faces.c

diff --git a/src/faces.c b/src/faces.c
index 215f67d..0d5f503 100644 (file)
--- a/src/faces.c
+++ b/src/faces.c
@@ -1752,6 +1752,8 @@ LOCALE, TAG-SET, EXACT-P, and HOW-TO-ADD are as in `copy-specifier'.
 void
 syms_of_faces (void)
 {
+  INIT_LRECORD_IMPLEMENTATION (face);
+
   /* Qdefault, Qwidget, Qleft_margin, Qright_margin defined in general.c */
   defsymbol (&Qmodeline, "modeline");
   defsymbol (&Qgui_element, "gui-element");
@@ -2028,13 +2030,13 @@ complex_vars_of_faces (void)
   Vwidget_face = Fmake_face (Qwidget,
                             build_string ("widget face"),
                             Qnil);
+  set_specifier_fallback (Fget (Vwidget_face, Qfont, Qunbound),
+                         Fget (Vgui_element_face, Qfont, Qunbound));
   set_specifier_fallback (Fget (Vwidget_face, Qforeground, Qunbound),
                          Fget (Vgui_element_face, Qforeground, Qunbound));
   set_specifier_fallback (Fget (Vwidget_face, Qbackground, Qunbound),
                          Fget (Vgui_element_face, Qbackground, Qunbound));
-  set_specifier_fallback (Fget (Vwidget_face, Qbackground_pixmap, Qnil),
-                         Fget (Vgui_element_face, Qbackground_pixmap,
-                               Qunbound));
+  /* We don't want widgets to have a default background pixmap. */
 
   Vleft_margin_face = Fmake_face (Qleft_margin,
                                  build_string ("left margin face"),