# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 708143155 0
# Node ID 86cb5db0b6c322e700eef1d2c03574c7d29257ea
# Parent  c7d47875230579a626cdcf116fe77ee5847f1360
*** empty log message ***

diff -r c7d478752305 -r 86cb5db0b6c3 src/eval.c
--- a/src/eval.c	Wed Jun 10 01:34:51 1992 +0000
+++ b/src/eval.c	Wed Jun 10 02:25:55 1992 +0000
@@ -103,11 +103,11 @@
 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 @@
       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;
diff -r c7d478752305 -r 86cb5db0b6c3 src/lisp.h
--- a/src/lisp.h	Wed Jun 10 01:34:51 1992 +0000
+++ b/src/lisp.h	Wed Jun 10 02:25:55 1992 +0000
@@ -826,10 +826,11 @@
 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