mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix cl-progv binding order

Browse source 
* lisp/emacs-lisp/cl-macs.el (cl-progv): Bind variables in the
correct order (bug#47272).
This commit is contained in:
Toby Cubitt 2021-03-20 10:01:13 +01:00 • committed by Lars Ingebrigtsen
parent f85b66d9b0
commit e33c2bfbf3
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -648,4 +648,9 @@ collection clause."
#'len))
(`(function (lambda (,_ ,_) . ,_)) t))))
(ert-deftest cl-macs--progv ()
(should (= (cl-progv '(test test) '(1 2) test) 2))
(should (equal (cl-progv '(test1 test2) '(1 2) (list test1 test2))
'(1 2))))
;;; cl-macs-tests.el ends here