diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-22 00:14:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-22 00:14:10 +0000 |
| commit | 07a97bf8c278be7943b50534846ed14d51593512 (patch) | |
| tree | dc62cb6c8c29db52e7ea1ef4255a21256b77dc66 /src/lisp.h | |
| parent | 90f80bcf8a07f7e0ef0e55d88d089ab2038b6242 (diff) | |
| download | emacs-07a97bf8c278be7943b50534846ed14d51593512.tar.gz | |
(Qwholenump): Declared.
(CHECK_NATNUM): Use Qwholenump.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/lisp.h b/src/lisp.h index fbf6ab6e025..86d9c85b547 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -771,7 +771,7 @@ typedef unsigned char UCHAR; #define CHECK_NATNUM(x, i) \ do { if (XTYPE ((x)) != Lisp_Int || XINT ((x)) < 0) \ - x = wrong_type_argument (Qnatnump, (x)); } while (0) + x = wrong_type_argument (Qwholenump, (x)); } while (0) #define CHECK_MARKER(x, i) \ do { if (XTYPE ((x)) != Lisp_Marker) x = wrong_type_argument (Qmarkerp, (x)); } while (0) @@ -1100,7 +1100,8 @@ extern Lisp_Object Qmark_inactive; extern Lisp_Object Qrange_error, Qdomain_error, Qsingularity_error; extern Lisp_Object Qoverflow_error, Qunderflow_error; -extern Lisp_Object Qintegerp, Qnumberp, Qnatnump, Qsymbolp, Qlistp, Qconsp; +extern Lisp_Object Qintegerp, Qnumberp, Qnatnump, Qwholenump; +extern Lisp_Object 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, Qnumber_or_marker_p; |