procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add `cl-constantly' function

Browse source 
* 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
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/cl-lib.el
View file

@ -560,4 +560,9 @@ of record objects."
(t (t
(advice-remove 'type-of #'cl--old-struct-type-of)))) (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 ;;; cl-lib.el ends here

5
test/lisp/emacs-lisp/cl-lib-tests.el
View file

@ -551,4 +551,9 @@
(should cl-old-struct-compat-mode) (should cl-old-struct-compat-mode)
(cl-old-struct-compat-mode (if saved 1 -1)))) (cl-old-struct-compat-mode (if saved 1 -1))))
(ert-deftest cl-constantly ()
(should (equal (mapcar (cl-constantly 3) '(a b c d))
'(3 3 3 3))))
;;; cl-lib-tests.el ends here ;;; cl-lib-tests.el ends here