From c80bd143cf695be5272821ef623527abcd88ea5d Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 16 Nov 1994 00:42:11 +0000
Subject: [PATCH] (syms_of_data): Set Qwholenump as function, not variable.
 (Fnatnump): Use NATNUMP macro.

---
 src/data.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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