Mercurial > hg > xemacs-beta

comparison src/debug.c @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
37 * 2. Add an extern definition for the symbol to debug.h. 37 * 2. Add an extern definition for the symbol to debug.h.
38 * 3. Add entries for the class to struct debug_classes in debug.h. 38 * 3. Add entries for the class to struct debug_classes in debug.h.
39 * 4. Add a FROB line for it in xemacs_debug_loop. 39 * 4. Add a FROB line for it in xemacs_debug_loop.
40 */ 40 */
41 41
42 Lisp_Object Qredisplay, Qbuffers, Qfaces; 42 static Lisp_Object Qredisplay, Qbuffers, Qfaces, Qwindows, Qframes, Qdevices;
43 Lisp_Object Qwindows, Qframes, Qdevices;
44 43
45 struct debug_classes active_debug_classes; 44 struct debug_classes active_debug_classes;
46 45
47 enum debug_loop 46 enum debug_loop
48 { 47 {
192 defsymbol (&Qbuffers, "buffers"); 191 defsymbol (&Qbuffers, "buffers");
193 defsymbol (&Qfaces, "faces"); 192 defsymbol (&Qfaces, "faces");
194 defsymbol (&Qwindows, "windows"); 193 defsymbol (&Qwindows, "windows");
195 defsymbol (&Qframes, "frames"); 194 defsymbol (&Qframes, "frames");
196 defsymbol (&Qdevices, "devices"); 195 defsymbol (&Qdevices, "devices");
197 /* defsymbol (&Qbyte_code, "byte-code"); in bytecode.c */
198 196
199 DEFSUBR (Fadd_debug_class_to_check); 197 DEFSUBR (Fadd_debug_class_to_check);
200 DEFSUBR (Fdelete_debug_class_to_check); 198 DEFSUBR (Fdelete_debug_class_to_check);
201 DEFSUBR (Fdebug_classes_being_checked); 199 DEFSUBR (Fdebug_classes_being_checked);
202 DEFSUBR (Fdebug_classes_list); 200 DEFSUBR (Fdebug_classes_list);
204 DEFSUBR (Fset_debug_class_types_to_check); 202 DEFSUBR (Fset_debug_class_types_to_check);
205 DEFSUBR (Fdebug_types_being_checked); 203 DEFSUBR (Fdebug_types_being_checked);
206 } 204 }
207 205
208 void 206 void
209 vars_of_debug (void) 207 reinit_vars_of_debug (void)
210 { 208 {
211 /* If you need to have any classes active early on in startup, then 209 /* If you need to have any classes active early on in startup, then
212 the flags should be set here. 210 the flags should be set here.
213 All functions called by this function are "allowed" according 211 All functions called by this function are "allowed" according
214 to emacs.c. */ 212 to emacs.c. */
215 xemacs_debug_loop (INIT, Qnil, Qnil); 213 xemacs_debug_loop (INIT, Qnil, Qnil);
216 } 214 }
215
216 void
217 vars_of_debug (void)
218 {
219 reinit_vars_of_debug ();
220 }