Move `wholenump` alias definition

* src/data.c (syms_of_data): From here...
* lisp/subr.el (wholenump): ...to here, with the other aliases.

diff --git a/lisp/subr.el b/lisp/subr.el
index 47fcbc2f31751221e9affad5b158c85521acc977..0894a644d28d5c66f167f4370bc02e8125301610 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2021,6 +2021,7 @@ instead; it will indirectly limit the specpdl stack size as well.")
 (defalias 'store-match-data #'set-match-data)
 (defalias 'chmod #'set-file-modes)
 (defalias 'mkdir #'make-directory)
+(defalias 'wholenump #'natnump)
 
 ;; These were the XEmacs names, now obsolete:
 (defalias 'point-at-eol #'line-end-position)

diff --git a/src/data.c b/src/data.c
index 377bcfce35dbd3c292b45105826338557593a3f2..9d6bf5a142c8ec4e810ccd68b7bb2efc5a5b6505 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -4369,8 +4369,6 @@ syms_of_data (void)
   defsubr (&Sbool_vector_count_consecutive);
   defsubr (&Sbool_vector_count_population);
 
-  set_symbol_function (Qwholenump, XSYMBOL (Qnatnump)->u.s.function);
-
   DEFVAR_LISP ("most-positive-fixnum", Vmost_positive_fixnum,
               doc: /* The greatest integer that is represented efficiently.
 This variable cannot be set; trying to do so will signal an error.  */);