[Emacs-diffs] emacs-25 0284660: ; Restore selector `member' accidentally drooped in ert rewrite.

[Anders Lindgren]

branch: emacs-25
commit 0284660f272a51d17a6f67389a7fa92abf8dec7a
Author: Anders Lindgren <address@hidden>
Commit: Anders Lindgren <address@hidden>

    ; 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'.
---
 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 470fd49..02ae41b 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))))))