[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] scratch/org-contacts-rebased 58ea7f2 095/118: org-contacts.el: Fi

From: Stefan Monnier
Subject: [elpa] scratch/org-contacts-rebased 58ea7f2 095/118: org-contacts.el: Fix org-store-link error caused by org-contacts
Date: Fri, 12 Nov 2021 15:37:11 -0500 (EST)

branch: scratch/org-contacts-rebased
commit 58ea7f2e3251d9dfa26289b206de14f1a3faa4d2
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>

    org-contacts.el: Fix org-store-link error caused by org-contacts
    * contrib/lisp/org-contacts.el (org-contacts-link-store): Fix Org store
    link by adding missing condition for org-contacts.
 org-contacts.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/org-contacts.el b/org-contacts.el
index 310166d..44ba455 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -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 
+  (when (and (eq major-mode 'org-mode)
+            (member (buffer-file-name) (mapcar 'expand-file-name 
     (let ((headline-str (substring-no-properties (org-get-heading t t t t))))
        :type "org-contact"

reply via email to

[Prev in Thread] Current Thread [Next in Thread]