branch: externals/ebdb
commit decfc9459dcfe282cb2287bead9c9d0aee7f47df
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Update company-ebdb to work
* company-ebdb.el (company-ebdb--candidates): Very small tweak to get
it working again.
---
company-ebdb.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/company-ebdb.el b/company-ebdb.el
index a1c2e06..a9f200e 100644
--- a/company-ebdb.el
+++ b/company-ebdb.el
@@ -22,7 +22,7 @@
(require 'company)
(require 'cl-lib)
-(declare-function ebdb-record-get-field "ebdb")
+(declare-function ebdb-record-mail "ebdb")
(declare-function ebdb-records "ebdb")
(declare-function ebdb-dwim-mail "ebdb-com")
(declare-function ebdb-search "ebdb-com")
@@ -31,7 +31,7 @@
"Completion backend for EBDB."
:group 'company)
-(defcustom company-ebdb-modes '(message-mode)
+(defcustom company-ebdb-modes '(message-mode mail-mode)
"Major modes in which `company-ebdb' may complete."
:type '(repeat (symbol :tag "Major mode"))
:package-version '(company . "0.8.8"))
@@ -39,7 +39,7 @@
(defun company-ebdb--candidates (arg)
(cl-mapcan (lambda (record)
(mapcar (lambda (mail) (ebdb-dwim-mail record mail))
- (ebdb-record-get-field record 'mail)))
+ (ebdb-record-mail record t)))
(eval '(ebdb-search (ebdb-records) arg nil arg))))
;;;###autoload
