XEmacs 21.2.20 "Yoko".

[chise/xemacs-chise.git.1] / src / debug.c

diff --git a/src/debug.c b/src/debug.c
index 28f25f1..3e50d0a 100644 (file)
--- a/src/debug.c
+++ b/src/debug.c
@@ -39,8 +39,7 @@ Boston, MA 02111-1307, USA.  */
  * 4.  Add a FROB line for it in xemacs_debug_loop.
  */
 
-Lisp_Object Qredisplay, Qbuffers, Qfaces;
-Lisp_Object Qwindows, Qframes, Qdevices;
+static Lisp_Object Qredisplay, Qbuffers, Qfaces, Qwindows, Qframes, Qdevices;
 
 struct debug_classes active_debug_classes;
 
@@ -59,10 +58,10 @@ enum debug_loop
 static Lisp_Object
 xemacs_debug_loop (enum debug_loop op, Lisp_Object class, Lisp_Object type)
 {
-  int flag = ((op == ADD) ? 1 : 0);
+  int flag = (op == ADD) ? 1 : 0;
   Lisp_Object retval = Qnil;
 
-#define FROB(item)\
+#define FROB(item)                                                     \
   if (op == LIST || op == ACTIVE || op == INIT || EQ (class, Q##item)) \
     {                                                                  \
       if (op == ADD || op == DELETE || op == INIT)                     \
@@ -75,7 +74,7 @@ xemacs_debug_loop (enum debug_loop op, Lisp_Object class, Lisp_Object type)
       else if (op == SETTYPE)                                          \
         active_debug_classes.types_of_##item = XINT (type);            \
       else if (op == TYPE)                                             \
-        retval = make_int (active_debug_classes.types_of_##item), Qnil; \
+        retval = make_int (active_debug_classes.types_of_##item);      \
       if (op == INIT) active_debug_classes.types_of_##item = VALBITS;  \
     }
 
@@ -194,7 +193,6 @@ syms_of_debug (void)
   defsymbol (&Qwindows, "windows");
   defsymbol (&Qframes, "frames");
   defsymbol (&Qdevices, "devices");
-  /* defsymbol (&Qbyte_code, "byte-code"); in bytecode.c */
 
   DEFSUBR (Fadd_debug_class_to_check);
   DEFSUBR (Fdelete_debug_class_to_check);
@@ -206,7 +204,7 @@ syms_of_debug (void)
 }
 
 void
-vars_of_debug (void)
+reinit_vars_of_debug (void)
 {
   /* If you need to have any classes active early on in startup, then
      the flags should be set here.
@@ -214,3 +212,9 @@ vars_of_debug (void)
      to emacs.c. */
   xemacs_debug_loop (INIT, Qnil, Qnil);
 }
+
+void
+vars_of_debug (void)
+{
+  reinit_vars_of_debug ();
+}