summaryrefslogtreecommitdiff
path: root/src/eval.c
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1992-06-10 02:25:55 +0000
committerRichard M. Stallman <rms@gnu.org>1992-06-10 02:25:55 +0000
commit4de86b16296516788a3c65d98b13464c4462549a (patch)
treecb69054474496cc057fcc84f4b4e46a2eb1060ee /src/eval.c
parent87ef29fd4c779b40f56cca5a5bb208c8fd79680d (diff)
downloademacs-4de86b16296516788a3c65d98b13464c4462549a.tar.gz
*** empty log message ***
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/eval.c b/src/eval.c
index f5e0bc2e276..d3d475f4d10 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -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;