diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-11-16 00:42:11 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-11-16 00:42:11 +0000 |
| commit | c80bd143cf695be5272821ef623527abcd88ea5d (patch) | |
| tree | 25d53fe2d227a837a2702db74fced8523051413b /src/data.c | |
| parent | c9dad5edec76c9bd818cfd2c6d9d3a71de9226c7 (diff) | |
| download | emacs-c80bd143cf695be5272821ef623527abcd88ea5d.tar.gz | |
(syms_of_data): Set Qwholenump as function, not variable.
(Fnatnump): Use NATNUMP macro.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 4 |
1 files 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 |