[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 38f1438 1/2: org-contacts.el: Use `bound-and-true-p
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 38f1438 1/2: org-contacts.el: Use `bound-and-true-p' to check (unbound) var |
Date: |
Tue, 5 Jan 2021 06:57:10 -0500 (EST) |
branch: externals/org
commit 38f143830c9a374440c040d161b962ae4fa0e74e
Author: David Florness <david@florness.com>
Commit: stardiviner <numbchild@gmail.com>
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 7ad4255..3df1b52 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