134 |
|
|
135 |
int debug_on_next_call; |
int debug_on_next_call; |
136 |
|
|
137 |
/* Non-zero means debuffer may continue. This is zero when the |
/* Non-zero means debugger may continue. This is zero when the |
138 |
debugger is called during redisplay, where it might not be safe to |
debugger is called during redisplay, where it might not be safe to |
139 |
continue the interrupted redisplay. */ |
continue the interrupted redisplay. */ |
140 |
|
|
151 |
Lisp_Object Vdebug_on_error; |
Lisp_Object Vdebug_on_error; |
152 |
|
|
153 |
/* List of conditions and regexps specifying error messages which |
/* List of conditions and regexps specifying error messages which |
154 |
do not enter the debugger even if Vdebug_on_errors says they should. */ |
do not enter the debugger even if Vdebug_on_error says they should. */ |
155 |
|
|
156 |
Lisp_Object Vdebug_ignored_errors; |
Lisp_Object Vdebug_ignored_errors; |
157 |
|
|
265 |
|
|
266 |
/* Interrupting redisplay and resuming it later is not safe under |
/* Interrupting redisplay and resuming it later is not safe under |
267 |
all circumstances. So, when the debugger returns, abort the |
all circumstances. So, when the debugger returns, abort the |
268 |
interupted redisplay by going back to the top-level. */ |
interrupted redisplay by going back to the top-level. */ |
269 |
if (debug_while_redisplaying) |
if (debug_while_redisplaying) |
270 |
Ftop_level (); |
Ftop_level (); |
271 |
|
|
1184 |
|
|
1185 |
DEFUN ("condition-case", Fcondition_case, Scondition_case, 2, UNEVALLED, 0, |
DEFUN ("condition-case", Fcondition_case, Scondition_case, 2, UNEVALLED, 0, |
1186 |
doc: /* Regain control when an error is signaled. |
doc: /* Regain control when an error is signaled. |
1187 |
executes BODYFORM and returns its value if no error happens. |
Executes BODYFORM and returns its value if no error happens. |
1188 |
Each element of HANDLERS looks like (CONDITION-NAME BODY...) |
Each element of HANDLERS looks like (CONDITION-NAME BODY...) |
1189 |
where the BODY is made of Lisp expressions. |
where the BODY is made of Lisp expressions. |
1190 |
|
|
1555 |
|
|
1556 |
/* Return 1 if an error with condition-symbols CONDITIONS, |
/* Return 1 if an error with condition-symbols CONDITIONS, |
1557 |
and described by SIGNAL-DATA, should skip the debugger |
and described by SIGNAL-DATA, should skip the debugger |
1558 |
according to debugger-ignore-errors. */ |
according to debugger-ignored-errors. */ |
1559 |
|
|
1560 |
static int |
static int |
1561 |
skip_debugger (conditions, data) |
skip_debugger (conditions, data) |
3069 |
/* If the symbol is a list, it is really (SYMBOL WHERE |
/* If the symbol is a list, it is really (SYMBOL WHERE |
3070 |
. CURRENT-BUFFER) where WHERE is either nil, a buffer, or a |
. CURRENT-BUFFER) where WHERE is either nil, a buffer, or a |
3071 |
frame. If WHERE is a buffer or frame, this indicates we |
frame. If WHERE is a buffer or frame, this indicates we |
3072 |
bound a variable that had a buffer-local or frmae-local |
bound a variable that had a buffer-local or frame-local |
3073 |
binding.. WHERE nil means that the variable had the default |
binding. WHERE nil means that the variable had the default |
3074 |
value when it was bound. CURRENT-BUFFER is the buffer that |
value when it was bound. CURRENT-BUFFER is the buffer that |
3075 |
was current when the variable was bound. */ |
was current when the variable was bound. */ |
3076 |
else if (CONSP (specpdl_ptr->symbol)) |
else if (CONSP (specpdl_ptr->symbol)) |