X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/9b89556880e326ec3391cfda2a87eada101eaaae..7d2d49bea57acd8f9ea07a8286144ee3ae1110c8:/company.el

diff --git a/company.el b/company.el
index d2373ff7c..9756402ec 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))