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 | 1aa2839256f3cff54bf5b3fe57a154c3bd78b89c (patch) | |
| tree | 5848af0904dea139468f93316b39020253b4d9ea /src/data.c | |
| parent | 186149748b0e882d66ef7b16d1465d890d489c33 (diff) | |
| download | emacs-1aa2839256f3cff54bf5b3fe57a154c3bd78b89c.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 |