mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

Fix org-bbdb-anniversaries-future.

Browse Source 
Forgot the mapcar in commit 75f91f0bb7.
This commit is contained in:
Nick Dokos 2015-10-20 21:10:52 -04:00
parent 481719fbd5
commit 30ec973c8b
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/org-bbdb.el
View File

@ -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."