Fix BBDB link completion

lisp/org-bbdb.el (org-bbdb-complete-link): Fix link completion with
newer versions of BBDB.

Newer versions of BBDB seem to be returning atomic values from
`bbdb-completing-read-record', we should be prepared for both atoms
and lists.
This commit is contained in:
Eric Abrahamsen 2014-04-29 08:59:13 +08:00 committed by Nicolas Goaziou
parent ae8fd7a139
commit ea50ad41be

View file

@ -400,8 +400,11 @@ This is used by Org to re-create the anniversary hash table."
(defun org-bbdb-complete-link ()
"Read a bbdb link with name completion."
(require 'bbdb-com)
(concat "bbdb:"
(bbdb-record-name (car (bbdb-completing-read-record "Name: ")))))
(let ((rec (bbdb-completing-read-record "Name: ")))
(concat "bbdb:"
(bbdb-record-name (if (listp rec)
(car rec)
rec)))))
(defun org-bbdb-anniv-export-ical ()
"Extract anniversaries from BBDB and convert them to icalendar format."