mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-11-25 07:27:57 +00:00
org-contacts.el: Rename a function to follow emacs-lisp coding conventions
* contrib/lisp/org-contacts.el (org-contacts-db-need-update-p): Replace the '?' by a '-p'. (org-contacts-db): Use the new name.
This commit is contained in:
parent
eee580c8b3
commit
ce6339e292
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user