branch: scratch/org-contacts-rebased
commit 99994ed06859a1de1230be847510cc441213745c
Author: Grégoire Jadi <gregoire.j...@gmail.com>
Commit: Grégoire Jadi <gregoire.j...@gmail.com>
contrib/lisp/org-contacts.el (org-contacts-complete-name): Prevent an error
when there is no completion available
* contrib/lisp/org-contacts.el (org-contacts-complete-name): Compute the
completion-list a bit earlier to prevent an error when there is no
completion available.
---
org-contacts.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index 9045087..4ffe360 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -439,13 +439,13 @@ A group FOO is composed of contacts with the tag FOO."
if email-list
;; … append a list of USER <EMAIL>.
nconc (loop for email in email-list
- collect (org-contacts-format-email contact-name
email)))))
+ collect (org-contacts-format-email contact-name
email))))
+ (completion-list (org-contacts-all-completions-prefix
+ string
+ (remove-duplicates completion-list :test #'equalp))))
(when completion-list
(list start end
- (org-contacts-make-collection-prefix
- (org-contacts-all-completions-prefix
- string
- (remove-duplicates completion-list :test #'equalp)))))))
+ (org-contacts-make-collection-prefix completion-list)))))
(defun org-contacts-message-complete-function (&optional start)
"Function used in `completion-at-point-functions' in `message-mode'."
