[elpa] externals/company 9b21604d19: Re-fix #202 with 'eval' again; now lexical-style

[ELPA Syncer]

branch: externals/company
commit 9b21604d19696de2c79ee28931620839b3a908b4
Author: Dmitry Gutov <dmitry@gutov.dev>
Commit: Dmitry Gutov <dmitry@gutov.dev>

    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)