Mercurial > emacs

changeset 9954:18b408b05189

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(syms_of_data): Set Qwholenump as function, not variable. (Fnatnump): Use NATNUMP macro.
author Karl Heuer <kwzh@gnu.org>
date Wed, 16 Nov 1994 00:42:11 +0000
parents e0672d4cf470
children dfb5d7e86733
files src/data.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.c	Wed Nov 16 00:30:25 1994 +0000
+++ b/src/data.c	Wed Nov 16 00:42:11 1994 +0000
@@ -329,7 +329,7 @@
   (obj)
      Lisp_Object obj;
 {
-  if (INTEGERP (obj) && XINT (obj) >= 0)
+  if (NATNUMP (obj))
     return Qt;
   return Qnil;
 }
@@ -2345,7 +2345,7 @@
   defsubr (&Ssub1);
   defsubr (&Slognot);
 
-  Fset (Qwholenump, Qnatnump);
+  XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function;
 }
 
 SIGTYPE