branch: externals/ebdb
commit 880be9f689119418306b874960ef9e49b8e51de3
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
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)
