mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

(syms_of_data): Set Qwholenump as function, not variable.

Browse Source 
(Fnatnump): Use NATNUMP macro.
This commit is contained in:
Karl Heuer 1994-11-16 00:42:11 +00:00
parent c9dad5edec
commit c80bd143cf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/data.c
View File

@ -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