From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 2 Nov 2023 21:56:02 +0000 (+0100)
Subject: Fix handling of non-zero completion base value
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b0f78c0d9d526560f319977fefb353c857eaa28b;p=completion-preview.git

Fix handling of non-zero completion base value
---

diff --git a/completion-preview.el b/completion-preview.el
index 9f26653..683d59f 100644
--- a/completion-preview.el
+++ b/completion-preview.el
@@ -139,7 +139,8 @@ Compatibility definition for `minibuffer--sort-by-length-alpha'."
                    (setq completion-preview--overlay (make-overlay end end))
                    (overlay-put completion-preview--overlay 'after-string after)
                    (overlay-put completion-preview--overlay 'completion-preview-data
-                                (list beg end (list cand) :exit-function exit-fn))
+                                (list (+ beg base) end (list cand)
+                                      :exit-function exit-fn))
                    (completion-preview-active-mode)))))))))))
 
 (defun completion-preview--post-command ()