[elpa] externals/ebdb 880be9f 14/17: Fix to dumb mistakes in 8fc7b6d69, fast lookups

[Eric Abrahamsen]

branch: externals/ebdb
commit 880be9f689119418306b874960ef9e49b8e51de3
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Fix to dumb mistakes in 8fc7b6d69, fast lookups
    
    * ebdb.el (ebdb-search): This is what the tests are for...
---
 ebdb.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ebdb.el b/ebdb.el
index c3cda4a..063d801 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -5157,7 +5157,8 @@ string must be a prefix of the sought string."
   (let ((case-fold-search ebdb-case-fold-search)
        new-clauses completed-strings recs)
     ;; Fast lookups won't work with INVERT.
-    (unless invert
+    (if invert
+       (setq new-clauses clauses)
       ;; Try the fast lookups.
       (pcase-dolist (`(,key ,crit) clauses)
        (or
@@ -5203,7 +5204,7 @@ string must be a prefix of the sought string."
                  (eql (null invert)
                       (catch 'found
                         (condition-case nil
-                            (dolist (c clauses)
+                            (dolist (c new-clauses)
                               (pcase c
                                 (`(,type ,criteria)
                                  (and (ebdb-record-search r type criteria)