branch: externals/embark
commit ce7c98597ea509bfec90ff096eb0845fb0e7c6b0
Merge: c3774e93d9 1c96911bdf
Author: Omar Antolín Camarena <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #809 from minad/improve-display-string
Treat computed space better in embark--display-string
---
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)))
