branch: master
commit 63ab0365ce2f48a28d4f5fd1b8af9109c3334d34
Author: Dmitry Gutov <dgu...@yandex.ru>
Commit: Dmitry Gutov <dgu...@yandex.ru>
Clean the annotation string before stripping it
Fixes #758
---
company.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/company.el b/company.el
index 68fcaaa..20e885e 100644
--- a/company.el
+++ b/company.el
@@ -2713,10 +2713,10 @@ If SHOW-VERSION is non-nil, show the version in the
echo area."
(annotation (company-call-backend 'annotation value)))
(setq value (company--clean-string (company-reformat value)))
(when annotation
+ (setq annotation (company--clean-string annotation))
(when company-tooltip-align-annotations
;; `lisp-completion-at-point' adds a space.
- (setq annotation (comment-string-strip annotation t nil)))
- (setq annotation (company--clean-string annotation)))
+ (setq annotation (comment-string-strip annotation t nil))))
(push (cons value annotation) items)
(setq width (max (+ (length value)
(if (and annotation
company-tooltip-align-annotations)
