Mercurial > hg > xemacs-beta

comparison src/print.c @ 5189:b65692aa90d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cosmetic XFT-code fixes, some variable renamings -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-04-04 Ben Wing <ben@xemacs.org> * font-mgr.c: * font-mgr.c (fc_standard_properties): * font-mgr.c (Ffc_pattern_p): * font-mgr.c (Ffc_pattern_create): * font-mgr.c (Ffc_name_parse): * font-mgr.c (Ffc_name_unparse): * font-mgr.c (Ffc_pattern_duplicate): * font-mgr.c (Ffc_pattern_add): * font-mgr.c (Ffc_pattern_del): * font-mgr.c (Ffc_pattern_get): * font-mgr.c (fc_config_create_using): * font-mgr.c (fc_strlist_to_lisp_using): * font-mgr.c (fontset_to_list): * font-mgr.c (Ffc_config_p): * font-mgr.c (Ffc_config_create): * font-mgr.c (Ffc_config_destroy): * font-mgr.c (Ffc_config_up_to_date): * font-mgr.c (Ffc_config_build_fonts): * font-mgr.c (Ffc_config_get_config_dirs): * font-mgr.c (Ffc_config_get_font_dirs): * font-mgr.c (Ffc_config_get_config_files): * font-mgr.c (Ffc_config_get_cache): * font-mgr.c (Ffc_config_get_fonts): * font-mgr.c (Ffc_config_set_current): * font-mgr.c (Ffc_config_get_blanks): * font-mgr.c (Ffc_config_get_rescan_interval): * font-mgr.c (Ffc_config_set_rescan_interval): * font-mgr.c (Ffc_config_app_font_add_file): * font-mgr.c (Ffc_config_app_font_add_dir): * font-mgr.c (Ffc_config_app_font_clear): * font-mgr.c (Ffc_init_load_config): * font-mgr.c (Ffc_init_load_config_and_fonts): * font-mgr.c (Ffc_config_get_current): * font-mgr.c (size): * font-mgr.c (Ffc_font_render_prepare): * font-mgr.c (Ffc_font_match): * font-mgr.c (Ffc_font_sort): * font-mgr.c (Ffc_init): * font-mgr.c (Ffc_get_version): * font-mgr.c (Ffc_init_reinitialize): * font-mgr.c (Ffc_init_bring_up_to_date): * font-mgr.c (Fxlfd_font_name_p): * font-mgr.c (make_xlfd_font_regexp): * font-mgr.c (syms_of_font_mgr): * font-mgr.c (vars_of_font_mgr): * font-mgr.c (complex_vars_of_font_mgr): Fix the code to conform to GNU style standards. Rename xft-debug-level to debug-xft. * fontcolor-x.c: * fontcolor-x.c (vars_of_fontcolor_x): Rename debug-x-objects to debug-x-fonts. * fontcolor-xlike-inc.c: * fontcolor-xlike-inc.c (DEBUG_FONTS1): * fontcolor-xlike-inc.c (DEBUG_FONTS2): * fontcolor-xlike-inc.c (DEBUG_FONTS3): * fontcolor-xlike-inc.c (DEBUG_FONTS4): * fontcolor-xlike-inc.c (DEBUG_FONTS_LISP1): * fontcolor-xlike-inc.c (count_hyphens): * fontcolor-xlike-inc.c (XFUN): * fontcolor-xlike-inc.c (xlistfonts_checking_charset): * fontcolor-xlike-inc.c (xft_find_charset_font): Misc. code fixes, mostly cosmetic. Get rid of some warnings. Fix the code to conform to GNU style standards. * lisp.h: * print.c: * print.c (debug_out_lisp): New function for doing printf-like formatting involving Lisp objects and outputting to the debug output.
author Ben Wing <ben@xemacs.org>
date Sun, 04 Apr 2010 23:46:50 -0500
parents 88bd4f3ef8e4
children 71ee43b8a74d
comparison
equal deleted inserted replaced
5181:a00bfbd64e0a 5189:b65692aa90d8
2463 debug_print (Lisp_Object debug_print_obj) 2463 debug_print (Lisp_Object debug_print_obj)
2464 { 2464 {
2465 external_debug_print (debug_print_obj, EXT_PRINT_ALL); 2465 external_debug_print (debug_print_obj, EXT_PRINT_ALL);
2466 } 2466 }
2467 2467
2468 /* Printf-style output when the objects being printed are Lisp objects.
2469 Calling style is e.g.
2470
2471 debug_out_lisp ("Called foo(%s %s)\n", 2, arg0, arg1)
2472 */
2473
2474 void
2475 debug_out_lisp (const CIbyte *format, int nargs, ...)
2476 {
2477 /* This function cannot GC, since GC is forbidden */
2478 struct debug_bindings bindings;
2479 int specdepth = debug_print_enter (&bindings);
2480 Lisp_Object *args = alloca_array (Lisp_Object, nargs);
2481 va_list va;
2482 int i;
2483 Ibyte *msgout;
2484
2485 va_start (va, nargs);
2486 for (i = 0; i < nargs; i++)
2487 args[i] = va_arg (va, Lisp_Object);
2488 va_end (va);
2489 msgout = emacs_vsprintf_malloc_lisp (format, Qnil, nargs, args, NULL);
2490 debug_out ("%s", msgout);
2491 xfree (msgout);
2492 unbind_to (specdepth);
2493 }
2494
2468 /* Getting tired of typing debug_print() ... */ 2495 /* Getting tired of typing debug_print() ... */
2469 void dp (Lisp_Object debug_print_obj); 2496 void dp (Lisp_Object debug_print_obj);
2470 void 2497 void
2471 dp (Lisp_Object debug_print_obj) 2498 dp (Lisp_Object debug_print_obj)
2472 { 2499 {