From b0f78c0d9d526560f319977fefb353c857eaa28b Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Thu, 2 Nov 2023 22:56:02 +0100 Subject: [PATCH] Fix handling of non-zero completion base value --- completion-preview.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 () -- 2.39.5