aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

org-contacts.el: Fix org-store-link error caused by org-contacts

Browse source 
* contrib/lisp/org-contacts.el (org-contacts-link-store): Fix Org store
link by adding missing condition for org-contacts.
This commit is contained in:
stardiviner 2020-12-17 13:09:54 +08:00
parent 2c0bb90259
commit ca3b10d5a8
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
org-contacts.el
View file

@ -1157,8 +1157,8 @@ are effectively trimmed). If nil, all zero-length substrings are retained."
(defun org-contacts-link-store ()
"Store the contact in `org-contacts-files' with a link."
(when (eq major-mode 'org-mode)
;; (member (buffer-file-name) (mapcar 'expand-file-name org-contacts-files))
(when (and (eq major-mode 'org-mode)
(member (buffer-file-name) (mapcar 'expand-file-name org-contacts-files)))
(let ((headline-str (substring-no-properties (org-get-heading t t t t))))
(org-store-link-props
:type "org-contact"