[elpa] 45/52: Bring back this-command check when company-idle-delay is t

[Dmitry Gutov]

dgutov pushed a commit to branch master
in repository elpa.

commit 952a6cdb1b936fca7a746c877baa51591cb99bad
Author: Dmitry Gutov <address@hidden>
Date:   Wed Jun 25 08:37:46 2014 +0300

    Bring back this-command check when company-idle-delay is t
    
    Reported by @proofit404
---
 company.el |    9 ++++++---
 1 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/company.el b/company.el
index a6d6ab9..7066817 100644
--- a/company.el
+++ b/company.el
@@ -1496,11 +1496,14 @@ from the rest of the back-ends in the group, if any, 
will be left at the end."
     (condition-case err
         (progn
           (unless (equal (point) company-point)
-            (company--perform))
+            (let ((company-idle-delay (and (eq company-idle-delay t)
+                                           (company--should-begin)
+                                           t)))
+              (company--perform)))
           (if company-candidates
               (company-call-frontends 'post-command)
             (and (numberp company-idle-delay)
-                 (company--should-idle-begin)
+                 (company--should-begin)
                  (setq company-timer
                        (run-with-timer company-idle-delay nil
                                        'company-idle-begin
@@ -1520,7 +1523,7 @@ from the rest of the back-ends in the group, if any, will 
be left at the end."
   "List of commands after which idle completion is (still) disabled when
 `company-begin-commands' is t.")
 
-(defun company--should-idle-begin ()
+(defun company--should-begin ()
   (if (eq t company-begin-commands)
       (not (memq this-command company--begin-inhibit-commands))
     (or