tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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.
This commit is contained in:
Grégoire Jadi 2013-02-28 11:45:36 +01:00
parent 8f3a109a21
commit 7d48126665
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
contrib/lisp/org-contacts.el
View File

@ -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'."