diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-01 14:07:05 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-01 14:07:05 -0500 |
| commit | d56b1f9e7cee077011fa1256c2965c2984a17282 (patch) | |
| tree | f80affdaff93047277f1b597e0f7311b2fce6ca9 /lisp/emacs-lisp | |
| parent | a0f60293d97cda858c033db4ae074e5e5560aab2 (diff) | |
| download | emacs-d56b1f9e7cee077011fa1256c2965c2984a17282.tar.gz emacs-d56b1f9e7cee077011fa1256c2965c2984a17282.tar.bz2 emacs-d56b1f9e7cee077011fa1256c2965c2984a17282.zip | |
* lisp/emacs-lisp/pcase.el (pcase--split-pred): Re-fix bug#14773
Adjust to calling convention of `macroexp--fgrep`.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index 95e5dd3ba01..b1e1305edfe 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el @@ -661,7 +661,7 @@ A and B can be one of: ;; run, but we don't have the environment in which `pat' will ;; run, so we can't do a reliable verification. But let's try ;; and catch at least the easy cases such as (bug#14773). - (not (macroexp--fgrep (mapcar #'car vars) (cadr upat))))) + (not (macroexp--fgrep vars (cadr upat))))) '(:pcase--succeed . :pcase--fail)) ;; In case PAT is of the form (pred (not PRED)) ((and (eq 'pred (car-safe pat)) (eq 'not (car-safe (cadr pat)))) |