From 7d48126665fe00ccc6bae2e95dd4df29cdfb2fa1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gr=C3=A9goire=20Jadi?= Date: Thu, 28 Feb 2013 11:45:36 +0100 Subject: [PATCH] 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. --- contrib/lisp/org-contacts.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el index 9045087ea..4ffe36001 100644 --- a/contrib/lisp/org-contacts.el +++ b/contrib/lisp/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 . 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'."