[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master f78f9c1 21/23: Initialize grouped backends on the fly as w
From: |
Dmitry Gutov |
Subject: |
[elpa] master f78f9c1 21/23: Initialize grouped backends on the fly as well |
Date: |
Fri, 11 Nov 2016 22:21:42 +0000 (UTC) |
branch: master
commit f78f9c14d551f6bf4e82e2ae98291811642d8190
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
Initialize grouped backends on the fly as well
Fixes #552.
---
company.el | 15 +++++++++------
1 file changed, 9 insertions(+), 6 deletions(-)
diff --git a/company.el b/company.el
index ce5a652..e540dd1 100644
--- a/company.el
+++ b/company.el
@@ -697,6 +697,12 @@ asynchronous call into synchronous.")
(unless (keywordp b)
(company-init-backend b))))))
+(defun company--maybe-init-backend (backend)
+ (or (not (symbolp backend))
+ (eq t (get backend 'company-init))
+ (unless (get backend 'company-init)
+ (company-init-backend backend))))
+
(defcustom company-lighter-base "company"
"Base string to use for the `company-mode' lighter."
:type 'string
@@ -932,8 +938,8 @@ matches IDLE-BEGIN-AFTER-RE, return it wrapped in a cons."
(defun company--multi-backend-adapter (backends command &rest args)
(let ((backends (cl-loop for b in backends
- when (not (and (symbolp b)
- (eq 'failed (get b 'company-init))))
+ when (or (keywordp b)
+ (company--maybe-init-backend b))
collect b))
(separate (memq :separate backends)))
@@ -1535,10 +1541,7 @@ prefix match (same case) will be prioritized."
(setq prefix
(if (or (symbolp backend)
(functionp backend))
- (when (or (not (symbolp backend))
- (eq t (get backend 'company-init))
- (unless (get backend 'company-init)
- (company-init-backend backend)))
+ (when (company--maybe-init-backend backend)
(funcall backend 'prefix))
(company--multi-backend-adapter backend 'prefix)))
(when prefix
- [elpa] master 05a934b 02/23: Simplify, (continued)
- [elpa] master 05a934b 02/23: Simplify, Dmitry Gutov, 2016/11/11
- [elpa] master 5fe2c23 04/23: Consider any frontend deriving from company-preview-frontend, Dmitry Gutov, 2016/11/11
- [elpa] master d3032e2 06/23: company-next-page: Wrap only when at the last item, Dmitry Gutov, 2016/11/11
- [elpa] master 63d4332 07/23: Reword, Dmitry Gutov, 2016/11/11
- [elpa] master e53f150 05/23: Mention the previous change, too, Dmitry Gutov, 2016/11/11
- [elpa] master 8e321eb 03/23: Auto-adjust company-idle-delay when it's zero, Dmitry Gutov, 2016/11/11
- [elpa] master 3d369e1 11/23: Don't convert user-error signals to error (#560), Dmitry Gutov, 2016/11/11
- [elpa] master 86c1f60 10/23: company-dabbrev-code: Look inside comments and strings when appropriate, Dmitry Gutov, 2016/11/11
- [elpa] master ac2606a 18/23: Add JSX modes to javascript aliases, Dmitry Gutov, 2016/11/11
- [elpa] master fc39277 15/23: Add keywords for rust-mode to company-keywords., Dmitry Gutov, 2016/11/11
- [elpa] master f78f9c1 21/23: Initialize grouped backends on the fly as well,
Dmitry Gutov <=
- [elpa] master e6689ea 12/23: company-files--directory-files: Swallow file-error, Dmitry Gutov, 2016/11/11
- [elpa] master 9476aef 09/23: company-files--directory-files: Don't ignore errors, Dmitry Gutov, 2016/11/11
- [elpa] master c353c71 14/23: global goes through all the tag files listed in GTAGSLIBPATH, Dmitry Gutov, 2016/11/11
- [elpa] master f2327bc 19/23: Merge pull request #575 from Wilfred/patch-1, Dmitry Gutov, 2016/11/11
- [elpa] master e077caf 22/23: Release 0.9.1, Dmitry Gutov, 2016/11/11
- [elpa] master ba87881 16/23: Merge pull request #572 from Wilfred/rust_keywords, Dmitry Gutov, 2016/11/11
- [elpa] master 6025006 08/23: Add company-files-exclusions, Dmitry Gutov, 2016/11/11
- [elpa] master d8ca520 13/23: Improve search visualization, Dmitry Gutov, 2016/11/11
- [elpa] master 1028f38 20/23: company-indent-or-complete-common: Blacklist some indentation functions, Dmitry Gutov, 2016/11/11
- [elpa] master 85bd83e 23/23: Merge commit 'e077caf1957f1846fae29aa84a021234c43be96f', Dmitry Gutov, 2016/11/11