From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 22 Mar 1994 00:14:10 +0000 (+0000)
Subject: (Qwholenump): Declared.
X-Git-Tag: emacs-19.34~9394
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07a97bf8c278be7943b50534846ed14d51593512;p=emacs.git

(Qwholenump): Declared.
(CHECK_NATNUM): Use Qwholenump.
---

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;