diff options
| author | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:35 +0200 |
|---|---|---|
| committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:35 +0200 |
| commit | 361fd4da7cfa870165cb1ec175cdbea55ca40e7e (patch) | |
| tree | a36bfd91d9e14c354b6eaebb20f5d5d64ec438db /lisp/org-bbdb.el | |
| parent | 77ddd382df838e38504b822e729250b2a6dd9b63 (diff) | |
Imported Upstream version 8.2.7a
Diffstat (limited to 'lisp/org-bbdb.el')
| -rw-r--r-- | lisp/org-bbdb.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/org-bbdb.el b/lisp/org-bbdb.el index b9841a6..cfd5b3b 100644 --- a/lisp/org-bbdb.el +++ b/lisp/org-bbdb.el @@ -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." |