branch: externals/embark
commit 1c96911bdfdeb4e7f9a642d3ca98aef9b12876de
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Treat computed space better in embark--display-string
See also
https://github.com/minad/vertico/commit/14cc82fc56b34482b33fb0175ec3044ab9a50003
It would be good to keep these in sync.
---
embark.el | 1 +
1 file changed, 1 insertion(+)
diff --git a/embark.el b/embark.el
index e2c7c94a47..0395ef6e3b 100644
--- a/embark.el
+++ b/embark.el
@@ -3100,6 +3100,7 @@ For non-minibuffers, assume candidates are of given TYPE."
(add-face-text-property
0 (length disp) face t (setq disp (concat disp))))
(setq pos nextd chunks (cons disp chunks)))
+ (pcase disp (`(space :align-to . ,_) (push " " chunks)))
(while (< pos nextd)
(let ((nexti
(next-single-property-change pos 'invisible str nextd)))
