Mercurial > hg > xemacs-beta

comparison src/faces.c @ 4990:8f0cf4fd3d2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Automatic merge
author Ben Wing <ben@xemacs.org>
date Sat, 06 Feb 2010 04:01:46 -0600
parents cbe181529c34
children ae48681c47fa
comparison
equal deleted inserted replaced
4989:d2ec55325515 4990:8f0cf4fd3d2c
135 else 135 else
136 { 136 {
137 write_fmt_string_lisp (printcharfun, "#<face %S", 1, face->name); 137 write_fmt_string_lisp (printcharfun, "#<face %S", 1, face->name);
138 if (!NILP (face->doc_string)) 138 if (!NILP (face->doc_string))
139 write_fmt_string_lisp (printcharfun, " %S", 1, face->doc_string); 139 write_fmt_string_lisp (printcharfun, " %S", 1, face->doc_string);
140 write_c_string (printcharfun, ">"); 140 write_ascstring (printcharfun, ">");
141 } 141 }
142 } 142 }
143 143
144 /* Faces are equal if all of their display attributes are equal. We 144 /* Faces are equal if all of their display attributes are equal. We
145 don't compare names or doc-strings, because that would make equal 145 don't compare names or doc-strings, because that would make equal
2228 { 2228 {
2229 /* Create the default face now so we know what it is immediately. */ 2229 /* Create the default face now so we know what it is immediately. */
2230 2230
2231 Vdefault_face = Qnil; /* so that Fmake_face() doesn't set up a bogus 2231 Vdefault_face = Qnil; /* so that Fmake_face() doesn't set up a bogus
2232 default value */ 2232 default value */
2233 Vdefault_face = Fmake_face (Qdefault, build_msg_string ("default face"), 2233 Vdefault_face = Fmake_face (Qdefault, build_defer_string ("default face"),
2234 Qnil); 2234 Qnil);
2235 2235
2236 /* Provide some last-resort fallbacks to avoid utter fuckage if 2236 /* Provide some last-resort fallbacks to avoid utter fuckage if
2237 someone provides invalid values for the global specifications. */ 2237 someone provides invalid values for the global specifications. */
2238 2238
2239 { 2239 {
2240 Lisp_Object fg_fb = Qnil, bg_fb = Qnil; 2240 Lisp_Object fg_fb = Qnil, bg_fb = Qnil;
2241 2241
2242 #ifdef HAVE_GTK 2242 #ifdef HAVE_GTK
2243 fg_fb = acons (list1 (Qgtk), build_string ("black"), fg_fb); 2243 fg_fb = acons (list1 (Qgtk), build_ascstring ("black"), fg_fb);
2244 bg_fb = acons (list1 (Qgtk), build_string ("white"), bg_fb); 2244 bg_fb = acons (list1 (Qgtk), build_ascstring ("white"), bg_fb);
2245 #endif 2245 #endif
2246 #ifdef HAVE_X_WINDOWS 2246 #ifdef HAVE_X_WINDOWS
2247 fg_fb = acons (list1 (Qx), build_string ("black"), fg_fb); 2247 fg_fb = acons (list1 (Qx), build_ascstring ("black"), fg_fb);
2248 bg_fb = acons (list1 (Qx), build_string ("gray80"), bg_fb); 2248 bg_fb = acons (list1 (Qx), build_ascstring ("gray80"), bg_fb);
2249 #endif 2249 #endif
2250 #ifdef HAVE_TTY 2250 #ifdef HAVE_TTY
2251 fg_fb = acons (list1 (Qtty), Fvector (0, 0), fg_fb); 2251 fg_fb = acons (list1 (Qtty), Fvector (0, 0), fg_fb);
2252 bg_fb = acons (list1 (Qtty), Fvector (0, 0), bg_fb); 2252 bg_fb = acons (list1 (Qtty), Fvector (0, 0), bg_fb);
2253 #endif 2253 #endif
2254 #ifdef HAVE_MS_WINDOWS 2254 #ifdef HAVE_MS_WINDOWS
2255 fg_fb = acons (list1 (Qmsprinter), build_string ("black"), fg_fb); 2255 fg_fb = acons (list1 (Qmsprinter), build_ascstring ("black"), fg_fb);
2256 bg_fb = acons (list1 (Qmsprinter), build_string ("white"), bg_fb); 2256 bg_fb = acons (list1 (Qmsprinter), build_ascstring ("white"), bg_fb);
2257 fg_fb = acons (list1 (Qmswindows), build_string ("black"), fg_fb); 2257 fg_fb = acons (list1 (Qmswindows), build_ascstring ("black"), fg_fb);
2258 bg_fb = acons (list1 (Qmswindows), build_string ("white"), bg_fb); 2258 bg_fb = acons (list1 (Qmswindows), build_ascstring ("white"), bg_fb);
2259 #endif 2259 #endif
2260 set_specifier_fallback (Fget (Vdefault_face, Qforeground, Qnil), fg_fb); 2260 set_specifier_fallback (Fget (Vdefault_face, Qforeground, Qnil), fg_fb);
2261 set_specifier_fallback (Fget (Vdefault_face, Qbackground, Qnil), bg_fb); 2261 set_specifier_fallback (Fget (Vdefault_face, Qbackground, Qnil), bg_fb);
2262 } 2262 }
2263 2263
2334 #endif /* MULE */ 2334 #endif /* MULE */
2335 2335
2336 #ifdef HAVE_XFT 2336 #ifdef HAVE_XFT
2337 for (fontptr = fonts + countof(fonts) - 1; fontptr >= fonts; fontptr--) 2337 for (fontptr = fonts + countof(fonts) - 1; fontptr >= fonts; fontptr--)
2338 inst_list = Fcons (Fcons (list1 (device_symbol), 2338 inst_list = Fcons (Fcons (list1 (device_symbol),
2339 build_string (*fontptr)), 2339 build_cistring (*fontptr)),
2340 inst_list); 2340 inst_list);
2341 2341
2342 #else /* !HAVE_XFT */ 2342 #else /* !HAVE_XFT */
2343 inst_list = 2343 inst_list =
2344 Fcons 2344 Fcons
2345 (Fcons 2345 (Fcons
2346 (list1 (device_symbol), 2346 (list1 (device_symbol),
2347 /* grrr. This really does need to be "*", not an XLFD. 2347 /* grrr. This really does need to be "*", not an XLFD.
2348 An unspecified XLFD won't pick up stuff like 10x20. */ 2348 An unspecified XLFD won't pick up stuff like 10x20. */
2349 build_string ("*")), 2349 build_ascstring ("*")),
2350 inst_list); 2350 inst_list);
2351 #ifdef MULE 2351 #ifdef MULE
2352 2352
2353 /* For Han characters and Ethiopic, we want the misc-fixed font used to 2353 /* For Han characters and Ethiopic, we want the misc-fixed font used to
2354 be distinct from that for alphabetic scripts, because the font 2354 be distinct from that for alphabetic scripts, because the font
2358 have charset-specific fallbacks for the East Asian charsets.) */ 2358 have charset-specific fallbacks for the East Asian charsets.) */
2359 inst_list = 2359 inst_list =
2360 Fcons 2360 Fcons
2361 (Fcons 2361 (Fcons
2362 (list4(device_symbol, Qtwo_dimensional, Qfinal, Qx_coverage_instantiator), 2362 (list4(device_symbol, Qtwo_dimensional, Qfinal, Qx_coverage_instantiator),
2363 build_string 2363 build_ascstring
2364 ("-misc-fixed-medium-r-normal--15-140-75-75-c-90-iso10646-1")), 2364 ("-misc-fixed-medium-r-normal--15-140-75-75-c-90-iso10646-1")),
2365 inst_list); 2365 inst_list);
2366 2366
2367 /* Use Markus Kuhn's version of misc-fixed as the font for the font for 2367 /* Use Markus Kuhn's version of misc-fixed as the font for the font for
2368 when a given charset's registries can't be found and redisplay for 2368 when a given charset's registries can't be found and redisplay for
2370 2370
2371 inst_list = 2371 inst_list =
2372 Fcons 2372 Fcons
2373 (Fcons 2373 (Fcons
2374 (list4(device_symbol, Qone_dimensional, Qfinal, Qx_coverage_instantiator), 2374 (list4(device_symbol, Qone_dimensional, Qfinal, Qx_coverage_instantiator),
2375 build_string 2375 build_ascstring
2376 ("-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso10646-1")), 2376 ("-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso10646-1")),
2377 inst_list); 2377 inst_list);
2378 2378
2379 for (fontptr = fonts + countof(fonts) - 1; fontptr >= fonts; fontptr--) 2379 for (fontptr = fonts + countof(fonts) - 1; fontptr >= fonts; fontptr--)
2380 inst_list = Fcons (Fcons (list3 (device_symbol, 2380 inst_list = Fcons (Fcons (list3 (device_symbol,
2381 Qtwo_dimensional, Qinitial), 2381 Qtwo_dimensional, Qinitial),
2382 build_string (*fontptr)), 2382 build_cistring (*fontptr)),
2383 inst_list); 2383 inst_list);
2384 2384
2385 /* We need to set the font for the JIT-ucs-charsets separately from the 2385 /* We need to set the font for the JIT-ucs-charsets separately from the
2386 final stage, since otherwise it picks up the two-dimensional 2386 final stage, since otherwise it picks up the two-dimensional
2387 specification (see specifier-tag-two-dimensional-initial-stage-p 2387 specification (see specifier-tag-two-dimensional-initial-stage-p
2390 2390
2391 inst_list = 2391 inst_list =
2392 Fcons 2392 Fcons
2393 (Fcons 2393 (Fcons
2394 (list4(device_symbol, Qencode_as_utf_8, Qinitial, Qx_coverage_instantiator), 2394 (list4(device_symbol, Qencode_as_utf_8, Qinitial, Qx_coverage_instantiator),
2395 build_string 2395 build_ascstring
2396 ("-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso10646-1")), 2396 ("-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso10646-1")),
2397 inst_list); 2397 inst_list);
2398 2398
2399 #endif /* MULE */ 2399 #endif /* MULE */
2400 2400
2402 use bold and oblique first if medium and regular are available. */ 2402 use bold and oblique first if medium and regular are available. */
2403 inst_list = 2403 inst_list =
2404 Fcons 2404 Fcons
2405 (Fcons 2405 (Fcons
2406 (list1 (device_symbol), 2406 (list1 (device_symbol),
2407 build_string ("-*-*-medium-r-*-*-*-120-*-*-c-*-*-*")), 2407 build_ascstring ("-*-*-medium-r-*-*-*-120-*-*-c-*-*-*")),
2408 inst_list); 2408 inst_list);
2409 2409
2410 /* With a Cygwin XFree86 install, this returns the best (clearest, 2410 /* With a Cygwin XFree86 install, this returns the best (clearest,
2411 most readable) font I can find when scaling of bitmap fonts is 2411 most readable) font I can find when scaling of bitmap fonts is
2412 turned on, as it is by default. (WHO IN THE NAME OF CHRIST THOUGHT 2412 turned on, as it is by default. (WHO IN THE NAME OF CHRIST THOUGHT
2415 2415
2416 inst_list = 2416 inst_list =
2417 Fcons 2417 Fcons
2418 (Fcons 2418 (Fcons
2419 (list1 (device_symbol), 2419 (list1 (device_symbol),
2420 build_string ("-*-lucidatypewriter-medium-r-*-*-*-120-*-*-*-*-*-*")), 2420 build_ascstring ("-*-lucidatypewriter-medium-r-*-*-*-120-*-*-*-*-*-*")),
2421 inst_list); 2421 inst_list);
2422 2422
2423 #endif /* !HAVE_XFT */ 2423 #endif /* !HAVE_XFT */
2424 2424
2425 #endif /* HAVE_X_WINDOWS || HAVE_GTK */ 2425 #endif /* HAVE_X_WINDOWS || HAVE_GTK */
2426 2426
2427 #ifdef HAVE_TTY 2427 #ifdef HAVE_TTY
2428 inst_list = Fcons (Fcons (list1 (Qtty), build_string ("normal")), 2428 inst_list = Fcons (Fcons (list1 (Qtty), build_ascstring ("normal")),
2429 inst_list); 2429 inst_list);
2430 #endif /* HAVE_TTY */ 2430 #endif /* HAVE_TTY */
2431 2431
2432 #ifdef HAVE_MS_WINDOWS 2432 #ifdef HAVE_MS_WINDOWS
2433 { 2433 {
2442 for (mswfontptr = mswfonts + countof (mswfonts) - 1; 2442 for (mswfontptr = mswfonts + countof (mswfonts) - 1;
2443 mswfontptr >= mswfonts; mswfontptr--) 2443 mswfontptr >= mswfonts; mswfontptr--)
2444 { 2444 {
2445 /* display device */ 2445 /* display device */
2446 inst_list = Fcons (Fcons (list1 (Qmswindows), 2446 inst_list = Fcons (Fcons (list1 (Qmswindows),
2447 build_string (*mswfontptr)), 2447 build_ascstring (*mswfontptr)),
2448 inst_list); 2448 inst_list);
2449 /* printer device */ 2449 /* printer device */
2450 inst_list = Fcons (Fcons (list1 (Qmsprinter), 2450 inst_list = Fcons (Fcons (list1 (Qmsprinter),
2451 build_string (*mswfontptr)), 2451 build_ascstring (*mswfontptr)),
2452 inst_list); 2452 inst_list);
2453 } 2453 }
2454 /* Use Lucida Console rather than Courier New if it exists -- the 2454 /* Use Lucida Console rather than Courier New if it exists -- the
2455 line spacing is much less, so many more lines fit with the same 2455 line spacing is much less, so many more lines fit with the same
2456 size font. (And it's specifically designed for screens.) */ 2456 size font. (And it's specifically designed for screens.) */
2457 inst_list = Fcons (Fcons (list1 (Qmswindows), 2457 inst_list = Fcons (Fcons (list1 (Qmswindows),
2458 build_string ("Lucida Console:Regular:10::")), 2458 build_ascstring ("Lucida Console:Regular:10::")),
2459 inst_list); 2459 inst_list);
2460 } 2460 }
2461 #endif /* HAVE_MS_WINDOWS */ 2461 #endif /* HAVE_MS_WINDOWS */
2462 2462
2463 set_specifier_fallback (Fget (Vdefault_face, Qfont, Qnil), inst_list); 2463 set_specifier_fallback (Fget (Vdefault_face, Qfont, Qnil), inst_list);
2477 list1 (Fcons (Qnil, Qnil))); 2477 list1 (Fcons (Qnil, Qnil)));
2478 2478
2479 /* gui-element is the parent face of all gui elements such as 2479 /* gui-element is the parent face of all gui elements such as
2480 modeline, vertical divider and toolbar. */ 2480 modeline, vertical divider and toolbar. */
2481 Vgui_element_face = Fmake_face (Qgui_element, 2481 Vgui_element_face = Fmake_face (Qgui_element,
2482 build_msg_string ("gui element face"), 2482 build_defer_string ("gui element face"),
2483 Qnil); 2483 Qnil);
2484 2484
2485 /* Provide some last-resort fallbacks for gui-element face which 2485 /* Provide some last-resort fallbacks for gui-element face which
2486 mustn't default to default. */ 2486 mustn't default to default. */
2487 { 2487 {
2491 But it gets referred to later! */ 2491 But it gets referred to later! */
2492 #ifdef HAVE_GTK 2492 #ifdef HAVE_GTK
2493 /* We need to put something in there, or error checking gets 2493 /* We need to put something in there, or error checking gets
2494 #%!@#ed up before the styles are set, which override the 2494 #%!@#ed up before the styles are set, which override the
2495 fallbacks. */ 2495 fallbacks. */
2496 fg_fb = acons (list1 (Qgtk), build_string ("black"), fg_fb); 2496 fg_fb = acons (list1 (Qgtk), build_ascstring ("black"), fg_fb);
2497 bg_fb = acons (list1 (Qgtk), build_string ("Gray80"), bg_fb); 2497 bg_fb = acons (list1 (Qgtk), build_ascstring ("Gray80"), bg_fb);
2498 #endif 2498 #endif
2499 #ifdef HAVE_X_WINDOWS 2499 #ifdef HAVE_X_WINDOWS
2500 fg_fb = acons (list1 (Qx), build_string ("black"), fg_fb); 2500 fg_fb = acons (list1 (Qx), build_ascstring ("black"), fg_fb);
2501 bg_fb = acons (list1 (Qx), build_string ("Gray80"), bg_fb); 2501 bg_fb = acons (list1 (Qx), build_ascstring ("Gray80"), bg_fb);
2502 #endif 2502 #endif
2503 #ifdef HAVE_TTY 2503 #ifdef HAVE_TTY
2504 fg_fb = acons (list1 (Qtty), Fvector (0, 0), fg_fb); 2504 fg_fb = acons (list1 (Qtty), Fvector (0, 0), fg_fb);
2505 bg_fb = acons (list1 (Qtty), Fvector (0, 0), bg_fb); 2505 bg_fb = acons (list1 (Qtty), Fvector (0, 0), bg_fb);
2506 #endif 2506 #endif
2507 #ifdef HAVE_MS_WINDOWS 2507 #ifdef HAVE_MS_WINDOWS
2508 fg_fb = acons (list1 (Qmsprinter), build_string ("black"), fg_fb); 2508 fg_fb = acons (list1 (Qmsprinter), build_ascstring ("black"), fg_fb);
2509 bg_fb = acons (list1 (Qmsprinter), build_string ("white"), bg_fb); 2509 bg_fb = acons (list1 (Qmsprinter), build_ascstring ("white"), bg_fb);
2510 fg_fb = acons (list1 (Qmswindows), build_string ("black"), fg_fb); 2510 fg_fb = acons (list1 (Qmswindows), build_ascstring ("black"), fg_fb);
2511 bg_fb = acons (list1 (Qmswindows), build_string ("Gray75"), bg_fb); 2511 bg_fb = acons (list1 (Qmswindows), build_ascstring ("Gray75"), bg_fb);
2512 #endif 2512 #endif
2513 set_specifier_fallback (Fget (Vgui_element_face, Qforeground, Qnil), fg_fb); 2513 set_specifier_fallback (Fget (Vgui_element_face, Qforeground, Qnil), fg_fb);
2514 set_specifier_fallback (Fget (Vgui_element_face, Qbackground, Qnil), bg_fb); 2514 set_specifier_fallback (Fget (Vgui_element_face, Qbackground, Qnil), bg_fb);
2515 } 2515 }
2516 2516
2517 /* Now create the other faces that redisplay needs to refer to 2517 /* Now create the other faces that redisplay needs to refer to
2518 directly. We could create them in Lisp but it's simpler this 2518 directly. We could create them in Lisp but it's simpler this
2519 way since we need to get them anyway. */ 2519 way since we need to get them anyway. */
2520 2520
2521 /* modeline is gui element. */ 2521 /* modeline is gui element. */
2522 Vmodeline_face = Fmake_face (Qmodeline, build_msg_string ("modeline face"), 2522 Vmodeline_face = Fmake_face (Qmodeline, build_defer_string ("modeline face"),
2523 Qnil); 2523 Qnil);
2524 2524
2525 set_specifier_fallback (Fget (Vmodeline_face, Qforeground, Qunbound), 2525 set_specifier_fallback (Fget (Vmodeline_face, Qforeground, Qunbound),
2526 Fget (Vgui_element_face, Qforeground, Qunbound)); 2526 Fget (Vgui_element_face, Qforeground, Qunbound));
2527 set_specifier_fallback (Fget (Vmodeline_face, Qbackground, Qunbound), 2527 set_specifier_fallback (Fget (Vmodeline_face, Qbackground, Qunbound),
2530 Fget (Vgui_element_face, Qbackground_pixmap, 2530 Fget (Vgui_element_face, Qbackground_pixmap,
2531 Qunbound)); 2531 Qunbound));
2532 2532
2533 /* toolbar is another gui element */ 2533 /* toolbar is another gui element */
2534 Vtoolbar_face = Fmake_face (Qtoolbar, 2534 Vtoolbar_face = Fmake_face (Qtoolbar,
2535 build_msg_string ("toolbar face"), 2535 build_defer_string ("toolbar face"),
2536 Qnil); 2536 Qnil);
2537 set_specifier_fallback (Fget (Vtoolbar_face, Qforeground, Qunbound), 2537 set_specifier_fallback (Fget (Vtoolbar_face, Qforeground, Qunbound),
2538 Fget (Vgui_element_face, Qforeground, Qunbound)); 2538 Fget (Vgui_element_face, Qforeground, Qunbound));
2539 set_specifier_fallback (Fget (Vtoolbar_face, Qbackground, Qunbound), 2539 set_specifier_fallback (Fget (Vtoolbar_face, Qbackground, Qunbound),
2540 Fget (Vgui_element_face, Qbackground, Qunbound)); 2540 Fget (Vgui_element_face, Qbackground, Qunbound));
2542 Fget (Vgui_element_face, Qbackground_pixmap, 2542 Fget (Vgui_element_face, Qbackground_pixmap,
2543 Qunbound)); 2543 Qunbound));
2544 2544
2545 /* vertical divider is another gui element */ 2545 /* vertical divider is another gui element */
2546 Vvertical_divider_face = Fmake_face (Qvertical_divider, 2546 Vvertical_divider_face = Fmake_face (Qvertical_divider,
2547 build_msg_string ("vertical divider face"), 2547 build_defer_string ("vertical divider face"),
2548 Qnil); 2548 Qnil);
2549 2549
2550 set_specifier_fallback (Fget (Vvertical_divider_face, Qforeground, Qunbound), 2550 set_specifier_fallback (Fget (Vvertical_divider_face, Qforeground, Qunbound),
2551 Fget (Vgui_element_face, Qforeground, Qunbound)); 2551 Fget (Vgui_element_face, Qforeground, Qunbound));
2552 set_specifier_fallback (Fget (Vvertical_divider_face, Qbackground, Qunbound), 2552 set_specifier_fallback (Fget (Vvertical_divider_face, Qbackground, Qunbound),
2556 Fget (Vgui_element_face, Qbackground_pixmap, 2556 Fget (Vgui_element_face, Qbackground_pixmap,
2557 Qunbound)); 2557 Qunbound));
2558 2558
2559 /* widget is another gui element */ 2559 /* widget is another gui element */
2560 Vwidget_face = Fmake_face (Qwidget, 2560 Vwidget_face = Fmake_face (Qwidget,
2561 build_msg_string ("widget face"), 2561 build_defer_string ("widget face"),
2562 Qnil); 2562 Qnil);
2563 /* #### weird ... the gui-element face doesn't have its own font yet */ 2563 /* #### weird ... the gui-element face doesn't have its own font yet */
2564 set_specifier_fallback (Fget (Vwidget_face, Qfont, Qunbound), 2564 set_specifier_fallback (Fget (Vwidget_face, Qfont, Qunbound),
2565 Fget (Vgui_element_face, Qfont, Qunbound)); 2565 Fget (Vgui_element_face, Qfont, Qunbound));
2566 set_specifier_fallback (Fget (Vwidget_face, Qforeground, Qunbound), 2566 set_specifier_fallback (Fget (Vwidget_face, Qforeground, Qunbound),
2568 set_specifier_fallback (Fget (Vwidget_face, Qbackground, Qunbound), 2568 set_specifier_fallback (Fget (Vwidget_face, Qbackground, Qunbound),
2569 Fget (Vgui_element_face, Qbackground, Qunbound)); 2569 Fget (Vgui_element_face, Qbackground, Qunbound));
2570 /* We don't want widgets to have a default background pixmap. */ 2570 /* We don't want widgets to have a default background pixmap. */
2571 2571
2572 Vleft_margin_face = Fmake_face (Qleft_margin, 2572 Vleft_margin_face = Fmake_face (Qleft_margin,
2573 build_msg_string ("left margin face"), 2573 build_defer_string ("left margin face"),
2574 Qnil); 2574 Qnil);
2575 Vright_margin_face = Fmake_face (Qright_margin, 2575 Vright_margin_face = Fmake_face (Qright_margin,
2576 build_msg_string ("right margin face"), 2576 build_defer_string ("right margin face"),
2577 Qnil); 2577 Qnil);
2578 Vtext_cursor_face = Fmake_face (Qtext_cursor, 2578 Vtext_cursor_face = Fmake_face (Qtext_cursor,
2579 build_msg_string ("face for text cursor"), 2579 build_defer_string ("face for text cursor"),
2580 Qnil); 2580 Qnil);
2581 Vpointer_face = 2581 Vpointer_face =
2582 Fmake_face (Qpointer, 2582 Fmake_face (Qpointer,
2583 build_msg_string 2583 build_defer_string
2584 ("face for foreground/background colors of mouse pointer"), 2584 ("face for foreground/background colors of mouse pointer"),
2585 Qnil); 2585 Qnil);
2586 } 2586 }