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

(Qwholenump): New variable.
(syms_of_data): Set and gcpro Qwholenump.
---

diff --git a/src/data.c b/src/data.c
index 3031a0f7628..d8f167dcf99 100644
--- a/src/data.c
+++ b/src/data.c
@@ -71,7 +71,7 @@ Lisp_Object Qsetting_constant, Qinvalid_read_syntax;
 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 @@ syms_of_data ()
   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 @@ syms_of_data ()
   staticpro (&Qsymbolp);
   staticpro (&Qintegerp);
   staticpro (&Qnatnump);
+  staticpro (&Qwholenump);
   staticpro (&Qstringp);
   staticpro (&Qarrayp);
   staticpro (&Qsequencep);
@@ -2301,6 +2303,8 @@ syms_of_data ()
   defsubr (&Sadd1);
   defsubr (&Ssub1);
   defsubr (&Slognot);
+
+  Fset (Qwholenump, Qnatnump);
 }
 
 SIGTYPE