branch: elpa/hl-column
commit 7aa2537f05dba5c533c5aca20efc6aef04e59ddd
Author: Akib Azmain Turja <a...@disroot.org>
Commit: Akib Azmain Turja <a...@disroot.org>
Use specified space to reach positions beyond EOL
---
hl-column.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/hl-column.el b/hl-column.el
index 308a1388ff..e3f5abfbeb 100644
--- a/hl-column.el
+++ b/hl-column.el
@@ -122,9 +122,12 @@ and `window-end' respectively while making the overlays.")
(overlay-put
ov 'after-string
(concat
- (make-string (max (- column (current-column))
- 0)
- ? )
+ (propertize
+ " " 'display
+ `(space :width
+ (,(* (frame-char-width)
+ (max (- column (current-column))
+ 0)))))
(propertize " " 'face hl-column-face))))
(when (< column (current-column))
(backward-char))
