Mercurial > hg > xemacs-beta

comparison src/debug.c @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 7df0dd720c89
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
57 }; 57 };
58 58
59 static Lisp_Object 59 static Lisp_Object
60 xemacs_debug_loop (enum debug_loop op, Lisp_Object class, Lisp_Object type) 60 xemacs_debug_loop (enum debug_loop op, Lisp_Object class, Lisp_Object type)
61 { 61 {
62 int flag = ((op == ADD) ? 1 : 0); 62 int flag = (op == ADD) ? 1 : 0;
63 Lisp_Object retval = Qnil; 63 Lisp_Object retval = Qnil;
64 64
65 #define FROB(item)\ 65 #define FROB(item) \
66 if (op == LIST || op == ACTIVE || op == INIT || EQ (class, Q##item)) \ 66 if (op == LIST || op == ACTIVE || op == INIT || EQ (class, Q##item)) \
67 { \ 67 { \
68 if (op == ADD || op == DELETE || op == INIT) \ 68 if (op == ADD || op == DELETE || op == INIT) \
69 active_debug_classes.item = flag; \ 69 active_debug_classes.item = flag; \
70 else if (op == LIST \ 70 else if (op == LIST \
73 else if (op == VALIDATE) \ 73 else if (op == VALIDATE) \
74 return Qt; \ 74 return Qt; \
75 else if (op == SETTYPE) \ 75 else if (op == SETTYPE) \
76 active_debug_classes.types_of_##item = XINT (type); \ 76 active_debug_classes.types_of_##item = XINT (type); \
77 else if (op == TYPE) \ 77 else if (op == TYPE) \
78 retval = make_int (active_debug_classes.types_of_##item), Qnil; \ 78 retval = make_int (active_debug_classes.types_of_##item); \
79 if (op == INIT) active_debug_classes.types_of_##item = VALBITS; \ 79 if (op == INIT) active_debug_classes.types_of_##item = VALBITS; \
80 } 80 }
81 81
82 FROB (redisplay); 82 FROB (redisplay);
83 FROB (buffers); 83 FROB (buffers);