Fix handling of non-zero completion base value

diff --git a/completion-preview.el b/completion-preview.el
index 9f266537d65a44425bfeaab20aba6fc5f7e88c04..683d59f256fc19400991036d62025e1a2116871f 100644 (file)
--- 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 ()