Promote 'constantly' from 'cl-constantly'

diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el
index 381fbee63d31a490248a6e9629d1539145a17d1a..8694a60d8fa3bae34b9cd926c0df04cebbb43a6e 100644 (file)
--- a/lisp/emacs-lisp/cl-lib.el
+++ b/lisp/emacs-lisp/cl-lib.el
@@ -590,9 +590,6 @@ of record objects."
     (advice-remove 'type-of #'cl--old-struct-type-of))))
 (make-obsolete 'cl-old-struct-compat-mode nil "30.1")
 
-(defun cl-constantly (value)
-  "Return a function that takes any number of arguments, but returns VALUE."
-  (lambda (&rest _)
-    value))
+(defalias 'cl-constantly #'constantly)
 
 ;;; cl-lib.el ends here

diff --git a/lisp/subr.el b/lisp/subr.el
index 1631f4ac621a6af6505cd6232b5e35501e5d0ec1..859407098ac63abe856e6af33ea840b50db45ce4 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -521,6 +521,10 @@ Also see `ignore'."
   (declare (pure t) (side-effect-free error-free))
   t)
 
+(defun constantly (value)
+  "Return a function that takes any number of arguments, but returns VALUE."
+  (lambda (&rest _) value))
+
 (defun error (string &rest args)
   "Signal an error, making a message by passing ARGS to `format-message'.
 Errors cause entry to the debugger when `debug-on-error' is non-nil.