Browse Source

Fix org-bbdb-anniversaries-future.

Forgot the mapcar in commit 75f91f0bb7aa401e62a7ce08ce01596e051c096e.
Nick Dokos 9 years ago
parent
commit
30ec973c8b
1 changed files with 8 additions and 7 deletions
  1. 8 7
      lisp/org-bbdb.el

+ 8 - 7
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."