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