diff options
| author | Nick Dokos <ndokos@gmail.com> | 2015-10-20 21:10:52 -0400 |
|---|---|---|
| committer | Nick Dokos <ndokos@gmail.com> | 2015-10-20 21:10:52 -0400 |
| commit | 30ec973c8beccec982d899e7f509836a482dbeae (patch) | |
| tree | 54a1d5a6fd8680826c8085d4a6ad2ed1c185bf09 | |
| parent | 481719fbd5751aaa9c672b762cb43aea8ee986b0 (diff) | |
| download | org-mode-30ec973c8beccec982d899e7f509836a482dbeae.tar.gz | |
Fix org-bbdb-anniversaries-future.
Forgot the mapcar in commit 75f91f0bb7aa401e62a7ce08ce01596e051c096e.
| -rw-r--r-- | lisp/org-bbdb.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/org-bbdb.el b/lisp/org-bbdb.el index b76822b..22939a3 100644 --- a/lisp/org-bbdb.el +++ b/lisp/org-bbdb.el @@ -441,13 +441,14 @@ This is used by Org to re-create the anniversary hash table." ;; to support older versions of emacs, this can be done with a cl-mapcan; ;; for now, we use the (apply #'nconc ...) method for compatibility. (apply #'nconc - (lambda (d) - (let ((date d)) - ;; Rebind 'date' so that org-bbdb-anniversaries will be - ;; fooled into giving us the list for the given date - ;; and then annotate the descriptions for that date. - (funcall annotate-descriptions d (org-bbdb-anniversaries)))) - dates)))) + (mapcar + (lambda (d) + (let ((date d)) + ;; Rebind 'date' so that org-bbdb-anniversaries will be + ;; fooled into giving us the list for the given date + ;; and then annotate the descriptions for that date. + (funcall annotate-descriptions d (org-bbdb-anniversaries)))) + dates))))) (defun org-bbdb-complete-link () "Read a bbdb link with name completion." |