diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-27 18:51:09 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-27 18:51:09 -0500 |
commit | d93bca019713e98228aca9f4d1a4838a72b1cf92 (patch) | |
tree | 3dd984c34b1e55e81975a1b55db17e0b4fcbb239 /lisp/emacs-lisp/macroexp.el | |
parent | d168110a322389a9f991d7a5bdd1cf777642c990 (diff) | |
download | emacs-d93bca019713e98228aca9f4d1a4838a72b1cf92.tar.gz emacs-d93bca019713e98228aca9f4d1a4838a72b1cf92.tar.bz2 emacs-d93bca019713e98228aca9f4d1a4838a72b1cf92.zip |
* lisp/emacs-lisp/pcase.el (pcase--split-pred): Handle `memq` pred.
Improve handling of the `member` tests generated from (or 'a 'b 'c).
This will expand
(pcase EXP ((and (or 1 2 3) (guard (FOO))) EXP1) (1 EXP2) (6 EXP3))
to
(cond ((memql '(3 2 1) EXP)
(cond ((FOO) EXP1) ((eql EXP 1) EXP2)))
((eql EXP 6) EXP3))
rather than to
(cond ((memql '(3 2 1) EXP)
(cond ((FOO) EXP1) ((eql EXP 1) EXP2) ((eql EXP 6) EXP3)))
((eql EXP 1) EXP2)
((eql EXP 6) EXP3))
Diffstat (limited to 'lisp/emacs-lisp/macroexp.el')
0 files changed, 0 insertions, 0 deletions