Browse Source

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.
stardiviner 4 years ago
parent
commit
94d1753ec8
1 changed files with 5 additions and 1 deletions
  1. 5 1
      contrib/lisp/org-contacts.el

+ 5 - 1
contrib/lisp/org-contacts.el

@@ -1172,7 +1172,11 @@ are effectively trimmed).  If nil, all zero-length substrings are retained."
 	(org-store-link-props
 	(org-store-link-props
 	 :type "org-contact"
 	 :type "org-contact"
 	 :link headline-str
 	 :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 ()
 (defun org-contacts--all-contacts ()
   "Return an alist (name . (file . position)) of all contacts in `org-contacts-files'."
   "Return an alist (name . (file . position)) of all contacts in `org-contacts-files'."