[elpa] externals/company ff49fc2 2/3: company-fill-propertize: Limit the deprecation marking to the completion value

[ELPA Syncer]

branch: externals/company
commit ff49fc2a7afa9463d7ea12c40c947c2d29a00aef
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    company-fill-propertize: Limit the deprecation marking to the completion 
value
    
    #1240
---
 company.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/company.el b/company.el
index 1de4f18..5044a55 100644
--- a/company.el
+++ b/company.el
@@ -3063,7 +3063,11 @@ If SHOW-VERSION is non-nil, show the version in the echo 
area."
       (add-face-text-property 0 width 'company-tooltip-selection t line))
 
     (when (company-call-backend 'deprecated value)
-      (add-face-text-property 0 width 'company-tooltip-deprecated t line))
+      (add-face-text-property margin
+                              (min
+                               (+ margin (length value))
+                               (- width (length right)))
+                              'company-tooltip-deprecated t line))
 
     (add-face-text-property 0 width 'company-tooltip t line)
     line))