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 | 72c3b532b9f3b6ac4b239913bf0daa5330354600 (patch) | |
| tree | 914737bb72cf2d8c1a11178d579598950df5b58b /src/lisp.h | |
| parent | 1a48815a23a23e71dc5cd8d6522879e52ef5897c (diff) | |
| download | emacs-72c3b532b9f3b6ac4b239913bf0daa5330354600.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; |