|
@@ -160,7 +160,7 @@ This overrides `org-email-link-description-format' if set."
|
|
|
"Return list of Org files to use for contact management."
|
|
|
(or org-contacts-files (org-agenda-files t 'ifmode)))
|
|
|
|
|
|
-(defun org-contacts-db-need-update? ()
|
|
|
+(defun org-contacts-db-need-update-p ()
|
|
|
"Determine whether `org-contacts-db' needs to be refreshed."
|
|
|
(or (null org-contacts-last-update)
|
|
|
(some (lambda (file)
|
|
@@ -174,7 +174,7 @@ This overrides `org-email-link-description-format' if set."
|
|
|
(contacts-matcher
|
|
|
(cdr (org-make-tags-matcher org-contacts-matcher)))
|
|
|
markers result)
|
|
|
- (when (org-contacts-db-need-update?)
|
|
|
+ (when (org-contacts-db-need-update-p)
|
|
|
(message "Update Org Contacts Database")
|
|
|
(dolist (file (org-contacts-files))
|
|
|
(org-check-agenda-file file)
|