masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 19:29:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Allow match-expansion to take multiple cases

Browse source
This commit is contained in:
John Wiegley 2017-11-30 19:40:54 -08:00
parent 7a562f10cb
commit dfd3194d80
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test/lisp/use-package/use-package-tests.el
View file

@ -30,9 +30,9 @@
(use-package-expand-minimally t))
(macroexpand ',form)))
(defmacro match-expansion (form value)
(defmacro match-expansion (form &rest value)
`(should (pcase (expand-minimally ,form)
(,value t))))
,@(mapcar #'(lambda (x) (list x t)) value))))
;; `cl-flet' does not work for the mocking we do below, while `flet' does.
(eval-when-compile