branch: externals/company
commit 9b21604d19696de2c79ee28931620839b3a908b4
Author: Dmitry Gutov <[email protected]>
Commit: Dmitry Gutov <[email protected]>
Re-fix #202 with 'eval' again; now lexical-style
Related: #1429
---
company-bbdb.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/company-bbdb.el b/company-bbdb.el
index c292fa508a..d95e140bbd 100644
--- a/company-bbdb.el
+++ b/company-bbdb.el
@@ -23,9 +23,7 @@
(require 'cl-lib)
(declare-function bbdb-record-get-field "bbdb")
-(declare-function bbdb-records "bbdb")
(declare-function bbdb-dwim-mail "bbdb-com")
-(declare-function bbdb-search "bbdb-com")
(defgroup company-bbdb nil
"Completion backend for BBDB."
@@ -40,7 +38,9 @@
(cl-mapcan (lambda (record)
(mapcar (lambda (mail) (bbdb-dwim-mail record mail))
(bbdb-record-get-field record 'mail)))
- (bbdb-search (bbdb-records) :all-names arg :mail arg)))
+ (eval `(let ((arg ,arg))
+ (bbdb-search (bbdb-records) :all-names arg :mail arg))
+ t)))
;;;###autoload
(defun company-bbdb (command &optional arg &rest _ignore)
