From 38f143830c9a374440c040d161b962ae4fa0e74e Mon Sep 17 00:00:00 2001 From: David Florness Date: Mon, 4 Jan 2021 23:20:51 -0500 Subject: [PATCH] org-contacts.el: Use `bound-and-true-p' to check (unbound) var * org-contacts.el (org-contacts-link-store): Use `bound-and-true-p' to check the truthiness of org-id-link-to-org-use-id, which may or may not be bound depending on whether org-id has been loaded. This simplifies the code. --- contrib/lisp/org-contacts.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el index 7ad425519..3df1b52dd 100644 --- a/contrib/lisp/org-contacts.el +++ b/contrib/lisp/org-contacts.el @@ -1166,7 +1166,7 @@ are effectively trimmed). If nil, all zero-length substrings are retained." "Store the contact in `org-contacts-files' with a link." (when (and (eq major-mode 'org-mode) (member (buffer-file-name) (mapcar 'expand-file-name org-contacts-files))) - (if (and (featurep 'org-id) org-id-link-to-org-use-id) + (if (bound-and-true-p org-id-link-to-org-use-id) (org-id-store-link) (let ((headline-str (substring-no-properties (org-get-heading t t t t)))) (org-store-link-props