branch: externals/valign
commit 59dfb2195b2d0ab7f98d6676b1ce855c54bae095
Author: Yuan Fu <[email protected]>
Commit: Yuan Fu <[email protected]>
* valign.el (valign--fancy-bar-cursor-fn): Thinner bar when cursor is bar.
---
valign.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/valign.el b/valign.el
index 0b7f7f1..a500bdf 100644
--- a/valign.el
+++ b/valign.el
@@ -355,8 +355,10 @@ before event, ACTION is either 'entered or 'left."
(ignore window)
(with-silent-modifications
(pcase action
- ('entered (put-text-property (point) (1+ (point))
- 'display " "))
+ ('entered (put-text-property
+ (point) (1+ (point))
+ 'display (if (eq cursor-type 'bar)
+ '(space :width (3)) " ")))
('left (put-text-property prev-pos (1+ prev-pos)
'display '(space :width (1)))))))
