[elpa] master 8eaac95 4/6: [company-ebdb] Provide new company-ebdb-pop-up option

[Eric Abrahamsen]

branch: master
commit 8eaac95eb79365f945902b56897d98161a72174d
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    [company-ebdb] Provide new company-ebdb-pop-up option
    
    * packages/company-ebdb/company-ebdb.el (company-ebdb-pop-up): In case
      users only want completion, no pop up.
---
 packages/company-ebdb/company-ebdb.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/packages/company-ebdb/company-ebdb.el 
b/packages/company-ebdb/company-ebdb.el
index 83dc53a..e5df64f 100644
--- a/packages/company-ebdb/company-ebdb.el
+++ b/packages/company-ebdb/company-ebdb.el
@@ -46,6 +46,10 @@
   :type '(repeat (symbol :tag "Major mode"))
   :package-version '(company . "0.8.8"))
 
+(defcustom company-ebdb-pop-up t
+  "When non-nil, pop up an *EBDB* buffer after completion."
+  :type 'boolean)
+
 (defun company-ebdb--candidates (arg)
   (cl-mapcan (lambda (record)
                (mapcar (lambda (mail) (ebdb-dwim-mail record mail))
@@ -54,7 +58,8 @@
                                                  (ebdb-field-mail ,arg))))))
 
 (defun company-ebdb--post-complete (arg)
-  (when (apply #'derived-mode-p company-ebdb-modes)
+  (when (and company-ebdb-pop-up
+            (apply #'derived-mode-p company-ebdb-modes))
    (let* ((bits (ebdb-decompose-ebdb-address arg))
          (recs (ebdb-message-search (car bits) (nth 1 bits))))
      (when recs