From db33924b9439a5a787b30e985cf005ba11347642 Mon Sep 17 00:00:00 2001 From: stardiviner Date: Thu, 17 Dec 2020 08:19:35 +0800 Subject: [PATCH] org-contacts: Fix org-store-link error caused by org-contacts-link-store * contrib/lisp/org-contacts.el (org-contacts-link-store): Fix Org store link by adding missing condition for org-contacts. --- contrib/lisp/org-contacts.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el index 310166d53..44ba455c4 100644 --- a/contrib/lisp/org-contacts.el +++ b/contrib/lisp/org-contacts.el @@ -1157,8 +1157,8 @@ (org-link-set-parameters "org-contact" (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" -- 2.29.2