[elpa] externals/valign 59dfb21 115/198: * valign.el (valign--fancy-bar-cursor-fn): Thinner bar when cursor is bar.

[Stefan Monnier]

branch: externals/valign
commit 59dfb2195b2d0ab7f98d6676b1ce855c54bae095
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

    * 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)))))))