From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 16 Nov 1994 00:42:11 +0000 (+0000)
Subject: (syms_of_data): Set Qwholenump as function, not variable.
X-Git-Tag: emacs-19.34~5901
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c80bd143cf695be5272821ef623527abcd88ea5d;p=emacs.git

(syms_of_data): Set Qwholenump as function, not variable.
(Fnatnump): Use NATNUMP macro.
---

diff --git a/src/data.c b/src/data.c
index f444dad403a..0350ecc3156 100644
--- a/src/data.c
+++ b/src/data.c
@@ -329,7 +329,7 @@ DEFUN ("natnump", Fnatnump, Snatnump, 1, 1, 0,
   (obj)
      Lisp_Object obj;
 {
-  if (INTEGERP (obj) && XINT (obj) >= 0)
+  if (NATNUMP (obj))
     return Qt;
   return Qnil;
 }
@@ -2345,7 +2345,7 @@ syms_of_data ()
   defsubr (&Ssub1);
   defsubr (&Slognot);
 
-  Fset (Qwholenump, Qnatnump);
+  XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function;
 }
 
 SIGTYPE