emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] 03/31: Remove company-bbdb-records, it was unused


From: Dmitry Gutov
Subject: [elpa] 03/31: Remove company-bbdb-records, it was unused
Date: Tue, 18 Mar 2014 05:19:34 +0000

dgutov pushed a commit to branch master
in repository elpa.

commit 1ccc65db0db56050258f81e586cbc8f06bd7e495
Author: Dmitry Gutov <address@hidden>
Date:   Thu Feb 20 06:14:33 2014 +0200

    Remove company-bbdb-records, it was unused
---
 company-bbdb.el |    7 +------
 1 files changed, 1 insertions(+), 6 deletions(-)

diff --git a/company-bbdb.el b/company-bbdb.el
index fb665cb..8e4705f 100644
--- a/company-bbdb.el
+++ b/company-bbdb.el
@@ -27,8 +27,6 @@
 (declare-function bbdb-dwim-mail "bbdb-com")
 (declare-function bbdb-search "bbdb-com")
 
-(defvar company-bbdb-records (make-hash-table :test 'equal))
-
 ;;;###autoload
 (defun company-bbdb (command &optional arg &rest ignore)
   "`company-mode' completion back-end for `bbdb'."
@@ -41,10 +39,7 @@
                                (line-beginning-position))
                  (company-grab-symbol)))
     (candidates (mapcan (lambda (record)
-                          (mapcar (lambda (mail)
-                                    (let ((full-mail (bbdb-dwim-mail record 
mail)))
-                                      (puthash full-mail record 
company-bbdb-records)
-                                      full-mail))
+                          (mapcar (lambda (mail) (bbdb-dwim-mail record mail))
                                   (bbdb-record-get-field record 'mail)))
                         (bbdb-search (bbdb-records) arg nil arg)))
     (sorted t)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]