Mercurial > hg > xemacs-beta

comparison src/faces.c @ 384:bbff43aa5eb7 r21-2-7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-7
author cvs
date Mon, 13 Aug 2007 11:08:24 +0200
parents 8626e4521993
children 74fd4e045ea6
comparison
equal deleted inserted replaced
383:6a50c6a581a5 384:bbff43aa5eb7
53 /* These faces are used directly internally. We use these variables 53 /* These faces are used directly internally. We use these variables
54 to be able to reference them directly and save the overhead of 54 to be able to reference them directly and save the overhead of
55 calling Ffind_face. */ 55 calling Ffind_face. */
56 Lisp_Object Vdefault_face, Vmodeline_face, Vgui_element_face; 56 Lisp_Object Vdefault_face, Vmodeline_face, Vgui_element_face;
57 Lisp_Object Vleft_margin_face, Vright_margin_face, Vtext_cursor_face; 57 Lisp_Object Vleft_margin_face, Vright_margin_face, Vtext_cursor_face;
58 Lisp_Object Vpointer_face, Vvertical_divider_face, Vtoolbar_face; 58 Lisp_Object Vpointer_face, Vvertical_divider_face, Vtoolbar_face, Vwidget_face;
59 59
60 /* Qdefault, Qhighlight defined in general.c */ 60 /* Qdefault, Qhighlight defined in general.c */
61 Lisp_Object Qmodeline, Qgui_element, Qleft_margin, Qright_margin, Qtext_cursor; 61 Lisp_Object Qmodeline, Qgui_element, Qleft_margin, Qright_margin, Qtext_cursor;
62 Lisp_Object Qvertical_divider; 62 Lisp_Object Qvertical_divider;
63 63
1734 1734
1735 1735
1736 void 1736 void
1737 syms_of_faces (void) 1737 syms_of_faces (void)
1738 { 1738 {
1739 /* Qdefault defined in general.c */ 1739 /* Qdefault & Qwidget defined in general.c */
1740 defsymbol (&Qmodeline, "modeline"); 1740 defsymbol (&Qmodeline, "modeline");
1741 defsymbol (&Qgui_element, "gui-element"); 1741 defsymbol (&Qgui_element, "gui-element");
1742 defsymbol (&Qleft_margin, "left-margin"); 1742 defsymbol (&Qleft_margin, "left-margin");
1743 defsymbol (&Qright_margin, "right-margin"); 1743 defsymbol (&Qright_margin, "right-margin");
1744 defsymbol (&Qtext_cursor, "text-cursor"); 1744 defsymbol (&Qtext_cursor, "text-cursor");
1791 1791
1792 staticpro (&Vdefault_face); 1792 staticpro (&Vdefault_face);
1793 Vdefault_face = Qnil; 1793 Vdefault_face = Qnil;
1794 staticpro (&Vgui_element_face); 1794 staticpro (&Vgui_element_face);
1795 Vgui_element_face = Qnil; 1795 Vgui_element_face = Qnil;
1796 staticpro (&Vwidget_face);
1797 Vwidget_face = Qnil;
1796 staticpro (&Vmodeline_face); 1798 staticpro (&Vmodeline_face);
1797 Vmodeline_face = Qnil; 1799 Vmodeline_face = Qnil;
1798 staticpro (&Vtoolbar_face); 1800 staticpro (&Vtoolbar_face);
1799 Vtoolbar_face = Qnil; 1801 Vtoolbar_face = Qnil;
1800 1802
1996 set_specifier_fallback (Fget (Vvertical_divider_face, Qbackground_pixmap, 1998 set_specifier_fallback (Fget (Vvertical_divider_face, Qbackground_pixmap,
1997 Qunbound), 1999 Qunbound),
1998 Fget (Vgui_element_face, Qbackground_pixmap, 2000 Fget (Vgui_element_face, Qbackground_pixmap,
1999 Qunbound)); 2001 Qunbound));
2000 2002
2003 /* widget is another gui element */
2004 Vwidget_face = Fmake_face (Qwidget,
2005 build_string ("widget face"),
2006 Qnil);
2007 set_specifier_fallback (Fget (Vwidget_face, Qforeground, Qunbound),
2008 Fget (Vgui_element_face, Qforeground, Qunbound));
2009 set_specifier_fallback (Fget (Vwidget_face, Qbackground, Qunbound),
2010 Fget (Vgui_element_face, Qbackground, Qunbound));
2011 set_specifier_fallback (Fget (Vwidget_face, Qbackground_pixmap, Qnil),
2012 Fget (Vgui_element_face, Qbackground_pixmap,
2013 Qunbound));
2014
2001 Vleft_margin_face = Fmake_face (Qleft_margin, 2015 Vleft_margin_face = Fmake_face (Qleft_margin,
2002 build_string ("left margin face"), 2016 build_string ("left margin face"),
2003 Qnil); 2017 Qnil);
2004 Vright_margin_face = Fmake_face (Qright_margin, 2018 Vright_margin_face = Fmake_face (Qright_margin,
2005 build_string ("right margin face"), 2019 build_string ("right margin face"),