Add `cl-constantly' function

* lisp/emacs-lisp/cl-lib.el (cl-constantly): Add Common Lisp
function missing (bug#21584).
This commit is contained in:
Lars Ingebrigtsen 2021-12-02 10:19:10 +01:00
parent 5db380abad
commit 7ca865dc52
2 changed files with 10 additions and 0 deletions

View file

@ -560,4 +560,9 @@ of record objects."
(t
(advice-remove 'type-of #'cl--old-struct-type-of))))
(defun cl-constantly (value)
"Return a function that takes any number of arguments, but returns VALUE."
(lambda (&rest _)
value))
;;; cl-lib.el ends here