Mercurial > hg > xemacs-beta

comparison src/faces.c @ 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 c9fe270a4101
children afd57c14dfc8
comparison
equal deleted inserted replaced
297:deca3c1083ac 298:70ad99077275
1942 modeline, vertical divider and toolbar. */ 1942 modeline, vertical divider and toolbar. */
1943 Vgui_element_face = Fmake_face (Qgui_element, 1943 Vgui_element_face = Fmake_face (Qgui_element,
1944 build_string ("gui element face"), 1944 build_string ("gui element face"),
1945 Qnil); 1945 Qnil);
1946 1946
1947 /* Provide some last-resort fallbacks for gui-element face which
1948 mustn't default to default. */
1949 {
1950 Lisp_Object fg_fb = Qnil, bg_fb = Qnil;
1951
1952 #ifdef HAVE_X_WINDOWS
1953 fg_fb = acons (list1 (Qx), build_string ("black"), fg_fb);
1954 bg_fb = acons (list1 (Qx), build_string ("Gray80"), bg_fb);
1955 #endif
1956 #ifdef HAVE_TTY
1957 fg_fb = acons (list1 (Qtty), Fvector (0, 0), fg_fb);
1958 bg_fb = acons (list1 (Qtty), Fvector (0, 0), bg_fb);
1959 #endif
1960 #ifdef HAVE_MS_WINDOWS
1961 fg_fb = acons (list1 (Qmswindows), build_string ("black"), fg_fb);
1962 bg_fb = acons (list1 (Qmswindows), build_string ("Gray75"), bg_fb);
1963 #endif
1964 set_specifier_fallback (Fget (Vgui_element_face, Qforeground, Qnil), fg_fb);
1965 set_specifier_fallback (Fget (Vgui_element_face, Qbackground, Qnil), bg_fb);
1966 }
1967
1947 /* Now create the other faces that redisplay needs to refer to 1968 /* Now create the other faces that redisplay needs to refer to
1948 directly. We could create them in Lisp but it's simpler this 1969 directly. We could create them in Lisp but it's simpler this
1949 way since we need to get them anyway. */ 1970 way since we need to get them anyway. */
1950 1971
1951 /* modeline is gui element. */ 1972 /* modeline is gui element. */