[elpa] externals/corfu 3490a42c30: Put preview overlay behind base

[ELPA Syncer]

branch: externals/corfu
commit 3490a42c30e4e32fe2d76dfc7736b649d37950db
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Put preview overlay behind base
---
 corfu.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/corfu.el b/corfu.el
index 26863ae972..1c27a38e9f 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."