Commit 4de86b16 authored by Richard M. Stallman's avatar Richard M. Stallman

*** empty log message ***

parent 87ef29fd
......@@ -103,11 +103,11 @@ int max_lisp_eval_depth;
int debug_on_next_call;
/* List of conditions (non-nil atom means all) which cause a backtrace
if an error is handled by the command loop's error handler.
if an error is handled by the command loop's error handler. */
Lisp_Object Vstack_trace_on_error;
/* List of conditions (non-nil atom means all) which enter the debugger
if an error is handled by the command loop's error handler.
if an error is handled by the command loop's error handler. */
Lisp_Object Vdebug_on_error;
/* Nonzero means enter debugger if a quit signal
......@@ -1139,17 +1139,17 @@ wants_debugger (list, conditions)
return 1;
}
if (NULL (list))
if (NILP (list))
return 0;
if (! CONSP (list))
return 1;
looking = 1;
while (!NULL (conditions))
while (!NILP (conditions))
{
Lisp_Object tem;
tem = Fmemq (XCONS (conditions)->car, list);
if (! NULL (tem))
if (! NILP (tem))
{
looking = 0;
return 1;
......
......@@ -826,10 +826,11 @@ extern Lisp_Object Qinvalid_function, Qwrong_number_of_arguments, Qno_catch;
extern Lisp_Object Qend_of_file, Qarith_error;
extern Lisp_Object Qbeginning_of_buffer, Qend_of_buffer, Qbuffer_read_only;
extern Lisp_Object Qintegerp, Qnatnump, Qsymbolp, Qlistp, Qconsp;
extern Lisp_Object Qintegerp, Qnumberp, Qnatnump, Qsymbolp, Qlistp, Qconsp;
extern Lisp_Object Qstringp, Qarrayp, Qsequencep, Qbufferp;
extern Lisp_Object Qchar_or_string_p, Qmarkerp, Qvectorp;
extern Lisp_Object Qinteger_or_marker_p, Qboundp, Qfboundp;
extern Lisp_Object Qinteger_or_marker_p, Qnumber_or_marker_p;
extern Lisp_Object Qboundp, Qfboundp;
extern Lisp_Object Qcdr;
#ifdef LISP_FLOAT_TYPE
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment