[elpa] master 8a8aea2 219/399: counsel.el (counsel-company): Use company-prefix

[Oleh Krehel]

branch: master
commit 8a8aea24d2f7b60889c5524b530b51874bab04c7
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    counsel.el (counsel-company): Use company-prefix
    
    Fixes #2054
---
 counsel.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/counsel.el b/counsel.el
index 0b6df50..d3b6b86 100644
--- a/counsel.el
+++ b/counsel.el
@@ -385,7 +385,7 @@ Update the minibuffer with the amount of lines collected 
every
 ;;** `counsel-company'
 (defvar company-candidates)
 (defvar company-point)
-(defvar company-common)
+(defvar company-prefix)
 (declare-function company-complete "ext:company")
 (declare-function company-mode "ext:company")
 (declare-function company-complete-common "ext:company")
@@ -399,9 +399,8 @@ Update the minibuffer with the amount of lines collected 
every
   (unless company-candidates
     (company-complete))
   (when company-point
-    (when (looking-back company-common (line-beginning-position))
-      (setq ivy-completion-beg (match-beginning 0))
-      (setq ivy-completion-end (match-end 0)))
+    (setq ivy-completion-beg (- company-point (length company-prefix)))
+    (setq ivy-completion-end company-point)
     (ivy-read "company cand: " company-candidates
               :action #'ivy-completion-in-region-action
               :unwind #'company-abort