Highlight whole line (candidate) on hover

corfu-mouse.el

@@ -67,18 +67,25 @@
     map))
 
 (defun corfu-mouse--format-candidates (fcands)
-  "Format candidatesq.
+  "Format candidates.
 
 FCANDS is the return value of `corfu--format-candidates'."
-  (let ((index corfu--scroll))
-    (dolist (cand (caddr fcands))
-       (add-text-properties 0 (length cand)
-                            `(mouse-face
-                              corfu-mouse
-                              keymap
-                              ,(corfu-mouse--candidate-map index))
-                            cand)
-      (setq index (1+ index)))
+  (let ((index corfu--scroll)
+        (cands (caddr fcands)))
+    (while cands
+      (let ((line (car cands)))
+        (setq line (concat line (make-string (- (cadr fcands)
+                                                (string-width line))
+                                             ? )))
+        (add-text-properties 0 (length line)
+                             `(mouse-face
+                               corfu-mouse
+                               keymap
+                               ,(corfu-mouse--candidate-map index))
+                             line)
+        (setcar cands line)
+        (setq cands (cdr cands))))
+    (setq index (1+ index))
     fcands))
 
 (defun corfu-mouse--scroll-up (n)