[elpa] master 7d2d49b 150/173: company--fetch-candidates: Bind non-essential

[Dmitry Gutov]

branch: master
commit 7d2d49bea57acd8f9ea07a8286144ee3ae1110c8
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    company--fetch-candidates: Bind non-essential
    
    http://debbugs.gnu.org/cgi/bugreport.cgi?bug=23006#56
    Closes #487
---
 company.el |    9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/company.el b/company.el
index d2373ff..9756402 100644
--- a/company.el
+++ b/company.el
@@ -1166,10 +1166,11 @@ can retrieve meta-data for them."
         t))))
 
 (defun company--fetch-candidates (prefix)
-  (let ((c (if company--manual-action
-               (company-call-backend 'candidates prefix)
-             (company-call-backend-raw 'candidates prefix)))
-        res)
+  (let* ((non-essential (not (company-explicit-action-p)))
+         (c (if company--manual-action
+                (company-call-backend 'candidates prefix)
+              (company-call-backend-raw 'candidates prefix)))
+         res)
     (if (not (eq (car c) :async))
         c
       (let ((buf (current-buffer))