branch: externals/corfu
commit 33a4aac2348a5f3b035b3c6ed0c779bf11da21f5
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Fix right margin formatting
---
corfu.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/corfu.el b/corfu.el
index b381a10..0352957 100644
--- a/corfu.el
+++ b/corfu.el
@@ -390,7 +390,8 @@ A scroll bar is displayed from LO to LO+BAR."
(lm (ceiling (* cw corfu-left-margin-width)))
(rm (ceiling (* cw corfu-right-margin-width)))
(bw (ceiling (min rm (* cw corfu-bar-width))))
- (margin (and (> lm 0) (propertize " " 'display `(space :width
(,lm)))))
+ (lmargin (and (> lm 0) (propertize " " 'display `(space :width
(,lm)))))
+ (rmargin (and (> rm 0) (propertize " " 'display `(space :width
(,rm)))))
(sbar (when (> bw 0)
(concat (propertize " " 'display `(space :align-to (- right
(,rm))))
(propertize " " 'display `(space :width (,(- rm bw))))
@@ -403,7 +404,8 @@ A scroll bar is displayed from LO to LO+BAR."
(- x lm (* cw off)) y
(+ (* width cw) lm rm) (* (length lines) ch)
(mapconcat (lambda (line)
- (let ((str (concat margin line (and lo (<= lo row (+ lo
bar)) sbar))))
+ (let ((str (concat lmargin line
+ (if (and lo (<= lo row (+ lo bar))) sbar
rmargin))))
(when (eq row curr)
(add-face-text-property
0 (length str) 'corfu-current 'append str))
