(overlay-put ov 'company-replacement-args args)
(overlay-put ov 'company-before
(apply 'company--replacement-string
(overlay-put ov 'company-replacement-args args)
(overlay-put ov 'company-before
(apply 'company--replacement-string
(height (overlay-get company-pseudo-tooltip-overlay 'company-height)))
(overlay-put company-pseudo-tooltip-overlay 'company-before
(apply 'company--replacement-string
(height (overlay-get company-pseudo-tooltip-overlay 'company-height)))
(overlay-put company-pseudo-tooltip-overlay 'company-before
(apply 'company--replacement-string