company-fill-propertize: Use `string-width' on `company-common'

[gnu-emacs-elpa] / company.el

diff --git a/company.el b/company.el
index 473b652d921c4fcf97045a6c3f7c648911787c86..e607bed6b74d7e19095bbf3191c2f5cfaa7978cc 100644 (file)
--- a/company.el
+++ b/company.el
@@ -2091,7 +2091,7 @@ If SHOW-VERSION is non-nil, show the version in the echo area."
 (defun company-fill-propertize (value annotation width selected left right)
   (let* ((margin (length left))
          (common (or (company-call-backend 'match value)
-                     (length company-common)))
+                     (string-width company-common)))
          (ann-ralign company-tooltip-align-annotations)
          (value (company--clean-string value))
          (ann-truncate (< width