From 9d71246945d59015255ea7845c619ef49c14c5fe Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Wed, 10 Nov 2021 22:49:10 +0100 Subject: corfu--popup-show: More robust right margin --- corfu.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/corfu.el b/corfu.el index 3b9a34e..6e9fc47 100644 --- a/corfu.el +++ b/corfu.el @@ -398,7 +398,7 @@ A scroll bar is displayed from LO to LO+BAR." (rm (ceiling (* cw corfu-right-margin-width))) (bw (ceiling (min rm (* cw corfu-bar-width)))) (lmargin (and (> lm 0) (propertize " " 'display `(space :width (,lm))))) - (rmargin (and (> rm 0) (propertize " " 'display `(space :width (,rm))))) + (rmargin (and (> rm 0) (propertize " " 'display `(space :align-to right)))) (sbar (when (> bw 0) (concat (propertize " " 'display `(space :align-to (- right (,rm)))) (propertize " " 'display `(space :width (,(- rm bw)))) -- cgit v1.0