branch: externals/ebdb
commit 3f3e7bfe98ac75a85aa29fa37eed539cfd12825d
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Add a "prompt" argument to ebdb-prompt-for-record
* ebdb.el (ebdb-prompt-for-record): We need to be able to customize
the prompt.
---
ebdb.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/ebdb.el b/ebdb.el
index 84ad862..07c7e3c 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -4118,11 +4118,12 @@ the class symbol of OBJ, or nil."
(push d unsynced)))
unsynced))
-(defun ebdb-prompt-for-record (&optional records class)
+(defun ebdb-prompt-for-record (&optional records class prompt)
"Prompt for a single record, and return it.
-If RECORDS is a list of records, offer choices from that list. If
-CLASS is given, only offer choices that are an instance of that
-class, or its subclasses."
+If RECORDS is a list of records, offer choices from that list.
+If CLASS is given, only offer choices that are an instance of
+that class, or its subclasses. If PROMPT is given, use that as
+the prompt."
(let* ((recs (or records (ebdb-records)))
(pairs
(mapcar
@@ -4140,7 +4141,7 @@ class, or its subclasses."
recs)))
(result
(completing-read
- "Choose record: "
+ (or prompt "Choose record: ")
pairs)))
(ebdb-gethash (cdr (assoc-string result pairs)) 'uuid)))
