[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 996fbd2 24/66: Add company-bbdb-modes defcustom
From: |
Dmitry Gutov |
Subject: |
[elpa] master 996fbd2 24/66: Add company-bbdb-modes defcustom |
Date: |
Tue, 13 Jan 2015 02:44:51 +0000 |
branch: master
commit 996fbd2b6a2fa38e14277b98cdcf99faf39a8a5f
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
Add company-bbdb-modes defcustom
---
NEWS.md | 1 +
company-bbdb.el | 7 ++++++-
2 files changed, 7 insertions(+), 1 deletions(-)
diff --git a/NEWS.md b/NEWS.md
index 8494f08..0e1c8c1 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,7 @@
## Next
+* New user option, `company-bbdb-modes`.
* `company-show-numbers` and `company-complete-number` now use visual numbering
of the candidates, taking into account only the ones currently displayed.
* `company-complete-number` can be bound to keypad numbers directly, with or
diff --git a/company-bbdb.el b/company-bbdb.el
index b2760b2..a134f90 100644
--- a/company-bbdb.el
+++ b/company-bbdb.el
@@ -27,6 +27,11 @@
(declare-function bbdb-dwim-mail "bbdb-com")
(declare-function bbdb-search "bbdb-com")
+(defcustom company-bbdb-modes '(message-mode)
+ "Major modes in which `company-bbdb' may complete."
+ :type '(repeat (symbol :tag "Major mode"))
+ :package-version '(company . "0.8.8"))
+
(defun company-bbdb--candidates (arg)
(cl-mapcan (lambda (record)
(mapcar (lambda (mail) (bbdb-dwim-mail record mail))
@@ -39,7 +44,7 @@
(interactive (list 'interactive))
(cl-case command
(interactive (company-begin-backend 'company-bbdb))
- (prefix (and (eq major-mode 'message-mode)
+ (prefix (and (memq major-mode company-bbdb-modes)
(featurep 'bbdb-com)
(looking-back "^\\(To\\|Cc\\|Bcc\\): *\\(.*\\)"
(line-beginning-position))
- [elpa] master 660cafc 22/66: company-input-noop: Use a symbol for the dummy event binding, (continued)
- [elpa] master 660cafc 22/66: company-input-noop: Use a symbol for the dummy event binding, Dmitry Gutov, 2015/01/12
- [elpa] master 7d3c5d4 23/66: company-backends: Clarify that responding to `match' is never mandatory, Dmitry Gutov, 2015/01/12
- [elpa] master bb0badd 25/66: Edit NEWS, Dmitry Gutov, 2015/01/12
- [elpa] master 67e74ce 26/66: company-backends: Add "to this command", Dmitry Gutov, 2015/01/12
- [elpa] master 0cdcd07 27/66: company-capf: Pass `sole' or 'finished' to exit-function, not `exact', Dmitry Gutov, 2015/01/12
- [elpa] master cecf6a9 29/66: company--window-width: Make it a defun, Dmitry Gutov, 2015/01/12
- [elpa] master 8196ff6 30/66: Work around http://debbugs.gnu.org/18384, Dmitry Gutov, 2015/01/12
- [elpa] master 62d1f37 28/66: company-clang--start-process: Bind process-adaptive-read-buffering to nil, Dmitry Gutov, 2015/01/12
- [elpa] master 3b622c4 31/66: Define customize group for company-bbdb, Dmitry Gutov, 2015/01/12
- [elpa] master e7073a1 33/66: s/`bbdb'/BBDB, Dmitry Gutov, 2015/01/12
- [elpa] master 996fbd2 24/66: Add company-bbdb-modes defcustom,
Dmitry Gutov <=
- [elpa] master 8d61f1b 35/66: company-semantic: add simple annotations, Dmitry Gutov, 2015/01/12
- [elpa] master ed97b73 34/66: company--insert-candidate: Don't change buffer modification status unnecessarily, Dmitry Gutov, 2015/01/12
- [elpa] master 6d023fd 36/66: Add NEWS entry, Dmitry Gutov, 2015/01/12
- [elpa] master 8d4ba7a 38/66: company-preview-show-at-point: Handle the pseudo-tooltip-overlay, Dmitry Gutov, 2015/01/12
- [elpa] master bd5e453 39/66: #267 follow-up fixes, Dmitry Gutov, 2015/01/12
- [elpa] master 7ac956a 37/66: Fix typo, Dmitry Gutov, 2015/01/12
- [elpa] master ccecb37 32/66: Merge pull request #252 from markus1189/bbdb-customize-group, Dmitry Gutov, 2015/01/12
- [elpa] master 6ff5ed3 40/66: Clear out unused variable warnings, Dmitry Gutov, 2015/01/12
- [elpa] master 8b587c0 43/66: Add .elpaignore, Dmitry Gutov, 2015/01/12
- [elpa] master eef07a5 44/66: Support template functions in company-clang annotations, Dmitry Gutov, 2015/01/12