Mercurial > emacs
changeset 706:86cb5db0b6c3
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 10 Jun 1992 02:25:55 +0000 |
| parents | c7d478752305 |
| children | e4253da532fb |
| files | src/eval.c src/lisp.h |
| diffstat | 2 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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;
--- 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