diff options
| author | stardiviner <numbchild@gmail.com> | 2021-01-05 19:30:36 +0800 |
|---|---|---|
| committer | stardiviner <numbchild@gmail.com> | 2021-01-05 19:30:36 +0800 |
| commit | 94d1753ec8b171442f0e789ca38beee2415198b0 (patch) | |
| tree | c60e017ee319896cd45f8c2d29d518a853b85858 | |
| parent | 38f143830c9a374440c040d161b962ae4fa0e74e (diff) | |
| download | org-mode-94d1753ec8b171442f0e789ca38beee2415198b0.tar.gz | |
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.
| -rw-r--r-- | contrib/lisp/org-contacts.el | 6 |
1 files changed, 5 insertions, 1 deletions
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'." |