From 3490a42c30e4e32fe2d76dfc7736b649d37950db Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Wed, 21 Sep 2022 22:13:15 +0200 Subject: Put preview overlay behind base --- corfu.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/corfu.el b/corfu.el index 26863ae..1c27a38 100644 --- a/corfu.el +++ b/corfu.el @@ -801,12 +801,11 @@ there hasn't been any input, then quit." (when-let (cand (and corfu-preview-current (>= corfu--index 0) (/= corfu--index corfu--preselect) (nth corfu--index corfu--candidates))) - (setq corfu--preview-ov (make-overlay beg end nil t t)) + (setq beg (+ beg (length corfu--base)) + corfu--preview-ov (make-overlay beg end nil)) (overlay-put corfu--preview-ov 'priority 1000) (overlay-put corfu--preview-ov 'window (selected-window)) - (overlay-put corfu--preview-ov - (if (= beg end) 'after-string 'display) - (concat corfu--base cand)))) + (overlay-put corfu--preview-ov (if (= beg end) 'after-string 'display) cand))) (defun corfu--echo-cancel (&optional msg) "Cancel echo timer and refresh MSG to prevent flicker during redisplay." -- cgit v1.0