[elpa] externals/ivy-hydra 7b3b672 230/395: counsel.el (counsel-company): Fix difference between company-common and company-prefix

[Basil L. Contovounesios]

branch: externals/ivy-hydra
commit 7b3b67276ae47d8000c29c565ab8007c87a5ffa5
Author: Oleh Krehel <ohwoeowho@gmail.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>

    counsel.el (counsel-company): Fix difference between company-common and 
company-prefix
    
    Fixes #2385
---
 counsel.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/counsel.el b/counsel.el
index 4b6057d..f6da084 100644
--- a/counsel.el
+++ b/counsel.el
@@ -403,8 +403,13 @@ Update the minibuffer with the amount of lines collected 
every
   (company-mode 1)
   (unless company-candidates
     (company-complete))
-  (let ((len (cond (company-common
-                    (length company-common))
+  (let ((len (cond ((let (l)
+                      (and company-common
+                           (string= company-common
+                                    (buffer-substring
+                                     (- (point) (setq l (length 
company-common)))
+                                     (point)))
+                           l)))
                    (company-prefix
                     (length company-prefix)))))
     (when len