Browse Source

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.
stardiviner 4 years ago
parent
commit
e7f625d426
1 changed files with 2 additions and 2 deletions
  1. 2 2
      contrib/lisp/org-contacts.el

+ 2 - 2
contrib/lisp/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 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"