X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fdebug.c;h=d3eb58ded760143c1c3f092852cbdd20074870b1;hb=d7ba6f450813d8174887b0b58c22d56d1dcfd811;hp=28f25f1e4baa4c5108d731c7fe4502c988ec7dfe;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git diff --git a/src/debug.c b/src/debug.c index 28f25f1..d3eb58d 100644 --- a/src/debug.c +++ b/src/debug.c @@ -59,10 +59,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 +75,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; \ }