branch: externals/corfu
commit 24ccf40df4b8bf87f850a6ea3db6e9a00e70cf2c
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
corfu-indexed: Fix popup alignment
---
extensions/corfu-indexed.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/extensions/corfu-indexed.el b/extensions/corfu-indexed.el
index 6829110cb0..10744dd48e 100644
--- a/extensions/corfu-indexed.el
+++ b/extensions/corfu-indexed.el
@@ -53,15 +53,15 @@
(setq cands (cdr cands))
(let* ((index 0)
(space #(" " 0 1 (face (:height 0.5 :inherit corfu-indexed))))
- (fmt
- (concat space
- (propertize
- (format "%%%ds" (if (> (length cands) 10) 2 1))
- 'face 'corfu-indexed)
- space))
+ (width (if (> (length cands) 10) 2 1))
+ (fmt (concat space
+ (propertize (format "%%%ds" width)
+ 'face 'corfu-indexed)
+ space))
(align
- (propertize " " 'display
- `(space :align-to (+ left ,(if (> (length cands) 10) 3
2))))))
+ (propertize (make-string width ?\s)
+ 'display
+ `(space :align-to (+ left ,(1+ width))))))
(dolist (cand cands)
(setf (cadr cand)
(concat
