company--fetch-candidates: Bind non-essential

http://debbugs.gnu.org/cgi/bugreport.cgi?bug=23006#56
Closes #487

diff --git a/company.el b/company.el
index d2373ff7c69d4d694b43c1b5ce3c290e2b8a9990..9756402ec71d3c7afe2d9f978e2b425c4cb3dec2 100644 (file)
--- 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))