Abort automatic completion if the prefix gets too short.

diff --git a/company.el b/company.el
index 52c9e26ac001fc71bae97f79df3adbe54dc5dc26..aed6686581648da30f29209e50b8e7dcfdb51a4c 100644 (file)
--- a/company.el
+++ b/company.el
@@ -69,6 +69,7 @@
 ;;
 ;;; Change Log:
 ;;
+;;    Automatic completion is now aborted if the prefix gets too short.
 ;;    Added option `company-dabbrev-time-limit'.
 ;;    `company-backends' now supports merging back-ends.
 ;;    Added back-end `company-dabbrev-code' for generic code.
@@ -826,8 +827,10 @@ keymap during active completions (`company-active-map'):
     ;; Don't complete existing candidates, fetch new ones.
     (setq company-candidates-cache nil))
   (let ((new-prefix (company-call-backend 'prefix)))
-    (if (= (- (point) (length new-prefix))
-           (- company-point (length company-prefix)))
+    (if (and (or (company-explicit-action-p)
+                 (>= (length new-prefix) company-minimum-prefix-length))
+             (= (- (point) (length new-prefix))
+                (- company-point (length company-prefix))))
         (unless (or (equal company-prefix new-prefix)
                     (let ((c (company-calculate-candidates new-prefix)))
                       ;; t means complete/unique.