diff options
| author | Anders Lindgren <andlind@gmail.com> | 2015-12-11 06:46:19 +0100 |
|---|---|---|
| committer | Anders Lindgren <andlind@gmail.com> | 2015-12-11 06:46:19 +0100 |
| commit | 0284660f272a51d17a6f67389a7fa92abf8dec7a (patch) | |
| tree | c9dba42200c6a624216818f0d0f566a3b03674c5 | |
| parent | d75849e937af0ecbcdc7bf621aa9bcd43aa75df4 (diff) | |
; Restore selector `member' accidentally drooped in ert rewrite.
; `test/automated/ert.el' and `test/automated/ert-x.el' now run
; without errors.
* lisp/emacs-lisp/ert.el (ert--insert-human-readable-selector): Add
the `member' selector. This was accidentally dropped when code was
converted from `cl-typecase' (where `member' has a special meaning)
and `cl-ecase' (where it doesn't) to `pcase'.
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 470fd49366..02ae41b9c6 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -1071,7 +1071,7 @@ contained in UNIVERSE." (make-symbol "<unnamed test>"))) (`(,operator . ,operands) (pcase operator - ((or 'eql 'and 'not 'or) + ((or 'member 'eql 'and 'not 'or) `(,operator ,@(mapcar #'rec operands))) ((or 'tag 'satisfies) selector)))))) |