From 7d2d49bea57acd8f9ea07a8286144ee3ae1110c8 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sat, 19 Mar 2016 00:48:53 +0200 Subject: [PATCH] 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 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)) -- 2.39.2