[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 8eaac95 4/6: [company-ebdb] Provide new company-ebdb-pop-u
From: |
Eric Abrahamsen |
Subject: |
[elpa] master 8eaac95 4/6: [company-ebdb] Provide new company-ebdb-pop-up option |
Date: |
Sun, 23 Dec 2018 14:11:16 -0500 (EST) |
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
- [elpa] master updated (f6e9955 -> 2d83c0c), Eric Abrahamsen, 2018/12/23
- [elpa] master 4e99377 3/6: [company-ebdb] Add to company-backends by default, Eric Abrahamsen, 2018/12/23
- [elpa] master 8eaac95 4/6: [company-ebdb] Provide new company-ebdb-pop-up option,
Eric Abrahamsen <=
- [elpa] master 534fede 5/6: [company-ebdb] Only return record addresses that actually match, Eric Abrahamsen, 2018/12/23
- [elpa] master 129b4b1 1/6: [company-ebdb] Offer record role field mail addresses for completion, Eric Abrahamsen, 2018/12/23
- [elpa] master ff9246a 2/6: [company-ebdb] Use derived-mode-p with company-ebdb-modes, Eric Abrahamsen, 2018/12/23
- [elpa] master 2d83c0c 6/6: [company-ebdb] Bump to 1.1, Eric Abrahamsen, 2018/12/23