Fixes #189.
Apparently, it's enough to pass t REAR-ADVANCE agrument to `make-overlay' when
creating the pseudo-tooltip overlay.
(if (eq (company-call-backend 'ignore-case) 'keep-prefix)
(insert (company-strip-prefix candidate))
(delete-region (- (point) (length company-prefix)) (point))
- (insert-before-markers candidate)))
+ (insert candidate)))
(defmacro company-with-candidate-inserted (candidate &rest body)
"Evaluate BODY with CANDIDATE temporarily inserted.
(end (save-excursion
(move-to-window-line (+ row (abs height)))
(point)))
- (ov (make-overlay (if nl beg (1- beg)) end nil t))
+ (ov (make-overlay (if nl beg (1- beg)) end nil t t))
(args (list (mapcar 'company-plainify
(company-buffer-lines beg end))
column nl above)))