# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 764295287 0
# Node ID 30fabcc03f0c63b1e1a24ad9e5ccb2c04f488430
# Parent  13b9d23a243a587a149027ddbc199450aeeede05
(Qwholenump): New variable.
(syms_of_data): Set and gcpro Qwholenump.

diff -r 13b9d23a243a -r 30fabcc03f0c src/data.c
--- a/src/data.c	Tue Mar 22 00:14:10 1994 +0000
+++ b/src/data.c	Tue Mar 22 00:14:47 1994 +0000
@@ -71,7 +71,7 @@
 Lisp_Object Qinvalid_function, Qwrong_number_of_arguments, Qno_catch;
 Lisp_Object Qend_of_file, Qarith_error, Qmark_inactive;
 Lisp_Object Qbeginning_of_buffer, Qend_of_buffer, Qbuffer_read_only;
-Lisp_Object Qintegerp, Qnatnump, Qsymbolp, Qlistp, Qconsp;
+Lisp_Object Qintegerp, Qnatnump, Qwholenump, Qsymbolp, Qlistp, Qconsp;
 Lisp_Object Qstringp, Qarrayp, Qsequencep, Qbufferp;
 Lisp_Object Qchar_or_string_p, Qmarkerp, Qinteger_or_marker_p, Qvectorp;
 Lisp_Object Qbuffer_or_string_p;
@@ -2021,6 +2021,7 @@
   Qsymbolp = intern ("symbolp");
   Qintegerp = intern ("integerp");
   Qnatnump = intern ("natnump");
+  Qwholenump = intern ("wholenump");
   Qstringp = intern ("stringp");
   Qarrayp = intern ("arrayp");
   Qsequencep = intern ("sequencep");
@@ -2204,6 +2205,7 @@
   staticpro (&Qsymbolp);
   staticpro (&Qintegerp);
   staticpro (&Qnatnump);
+  staticpro (&Qwholenump);
   staticpro (&Qstringp);
   staticpro (&Qarrayp);
   staticpro (&Qsequencep);
@@ -2301,6 +2303,8 @@
   defsubr (&Sadd1);
   defsubr (&Ssub1);
   defsubr (&Slognot);
+
+  Fset (Qwholenump, Qnatnump);
 }
 
 SIGTYPE