[elpa] externals/org-contacts 0e33f05c4e 105/154: org-contacts.el: Fix store link function does not return link.

[ELPA Syncer]

branch: externals/org-contacts
commit 0e33f05c4e65ff5f03aa81ce62341610fb6c2853
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>

    org-contacts.el: Fix store link function does not return link.
    
    * contrib/lisp/org-contacts.el (org-contacts-link-store): Fix
    org-store-link return incorrect link without link type prefix.
---
 org-contacts.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/org-contacts.el b/org-contacts.el
index 3df1b52ddc..d8c735cbbe 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'."