branch: externals/ebdb
commit c38931f2c99e2e5314b05e93011fa0289e598fef
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
Improve ebdb-prompt-for-record string selection
* ebdb.el (ebdb-prompt-for-record): Draw all available names from
`ebdb-record-alt-names', not just `ebdb-string'.
---
ebdb.el | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/ebdb.el b/ebdb.el
index 74916f5..92739fb 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -4557,13 +4557,12 @@ that class, or its subclasses. If PROMPT is given, use
that as
the prompt."
(let* ((recs (or records (ebdb-records)))
(pairs
- (mapcar
+ (mapcan
(lambda (r)
- ;; This is bad, doesn't take into account all the
- ;; different strings that might be used to find a record.
- (cons
- (ebdb-string r)
- (ebdb-record-uuid r)))
+ (mapcar
+ (lambda (s)
+ (cons s (ebdb-record-uuid r)))
+ (ebdb-record-alt-names r)))
(if class
(seq-filter
(lambda (r)
