aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

org-contacts.el: Rename a function to follow emacs-lisp coding conventions

Browse source 
* 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:
Grégoire Jadi 2013-02-27 22:11:43 +01:00
parent 1313bd7bb0
commit abbf3a9a25
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
org-contacts.el
View file

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