[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] 05/30: company--insert-candidate: Don't use `insert-before-marker

From: Dmitry Gutov
Subject: [elpa] 05/30: company--insert-candidate: Don't use `insert-before-markers'
Date: Tue, 14 Oct 2014 22:22:45 +0000

dgutov pushed a commit to branch master
in repository elpa.

commit 202e61de0b73c8ff0a3817b25cddc67914ad2bc2
Author: Dmitry Gutov <address@hidden>
Date:   Mon Sep 22 07:10:10 2014 +0400

    company--insert-candidate: Don't use `insert-before-markers'
    Fixes #189.
    Apparently, it's enough to pass t REAR-ADVANCE agrument to `make-overlay' 
    creating the pseudo-tooltip overlay.
 company.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/company.el b/company.el
index c47c72e..15a6eee 100644
--- a/company.el
+++ b/company.el
@@ -978,7 +978,7 @@ Controlled by `company-auto-complete'.")
   (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.
@@ -2388,7 +2388,7 @@ Returns a negative number if the tooltip should be 
displayed above point."
              (end (save-excursion
                     (move-to-window-line (+ row (abs height)))
-             (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)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]