From 0284660f272a51d17a6f67389a7fa92abf8dec7a Mon Sep 17 00:00:00 2001
From: Anders Lindgren <andlind@gmail.com>
Date: Fri, 11 Dec 2015 06:46:19 +0100
Subject: [PATCH] ; 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 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index 470fd493661..02ae41b9c6b 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))))))