[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 94d1753 2/2: org-contacts.el: Fix store link functi
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 94d1753 2/2: org-contacts.el: Fix store link function does not return link. |
Date: |
Tue, 5 Jan 2021 06:57:11 -0500 (EST) |
branch: externals/org
commit 94d1753ec8b171442f0e789ca38beee2415198b0
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.
---
contrib/lisp/org-contacts.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el
index 3df1b52..d8c735c 100644
--- a/contrib/lisp/org-contacts.el
+++ b/contrib/lisp/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'."