aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

contrib/lisp/org-contacts.el (org-contacts-complete-name): Prevent an error when there is no completion available

Browse source 
* 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 abbf3a9a25
commit b34f505d38
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
org-contacts.el
View file

@ -439,13 +439,13 @@ A group FOO is composed of contacts with the tag FOO."
if email-list if email-list
;; … append a list of USER <EMAIL>. ;; … append a list of USER <EMAIL>.
nconc (loop for email in email-list 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 (when completion-list
(list start end (list start end
(org-contacts-make-collection-prefix (org-contacts-make-collection-prefix completion-list)))))
(org-contacts-all-completions-prefix
string
(remove-duplicates completion-list :test #'equalp)))))))
(defun org-contacts-message-complete-function (&optional start) (defun org-contacts-message-complete-function (&optional start)
"Function used in `completion-at-point-functions' in `message-mode'." "Function used in `completion-at-point-functions' in `message-mode'."