corfu--format-candidates: Fully right align suffixes

1 files changed, 4 insertions, 1 deletions

diff --git a/corfu.el b/corfu.el
index bd60f4a..4460039 100644
--- a/corfu.el
+++ b/corfu.el
@@ -605,7 +605,10 @@ completion began less than that number of seconds ago."
                (concat prefix
                        (make-string (- pw (string-width prefix)) ?\s)
                        cand
-                       (unless (eq suffix "") (make-string (- cw (string-width cand)) ?\s))
+                       (unless (eq suffix "")
+                         (make-string (+ (- cw (string-width cand))
+                                         (- sw (string-width suffix)))
+                                      ?\s))
                        suffix)
                width))
             cands)))