diff --git a/org-contacts.el b/org-contacts.el index 3df1b52..d8c735c 100644 --- a/org-contacts.el +++ b/org-contacts.el @@ -1172,7 +1172,11 @@ are effectively trimmed). If nil, all zero-length substrings are retained." (org-store-link-props :type "org-contact" :link headline-str - :description headline-str))))) + :description headline-str) + (setq desc headline-str) + (setq link (concat "org-contact:" headline-str)) + (org-add-link-props :link link :description desc) + link)))) (defun org-contacts--all-contacts () "Return an alist (name . (file . position)) of all contacts in `org-contacts-files'."