diff options
| author | Stefan Monnier | 2021-01-27 18:51:09 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2021-01-27 18:51:09 -0500 |
| commit | d93bca019713e98228aca9f4d1a4838a72b1cf92 (patch) | |
| tree | 3dd984c34b1e55e81975a1b55db17e0b4fcbb239 /src/bytecode.c | |
| parent | d168110a322389a9f991d7a5bdd1cf777642c990 (diff) | |
| download | emacs-d93bca019713e98228aca9f4d1a4838a72b1cf92.tar.gz 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 'src/bytecode.c')
0 files changed, 0 insertions, 0 deletions