Make sure widget buttons always have a left box line

* lisp/wid-edit.el (widget-specify-button): Add an invisible
before-string to the button overlay.  (bug#51550)

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index a53add7d084..22f3d299081 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -437,8 +437,9 @@ the :notify function can't know the new value.")
         (follow-link (widget-get widget :follow-link))
         (help-echo (widget-get widget :help-echo)))
     (widget-put widget :button-overlay overlay)
-    (if (functionp help-echo)
+    (when (functionp help-echo)
       (setq help-echo 'widget-mouse-help))
+    (overlay-put overlay 'before-string #(" " 0 1 (invisible t)))
     (overlay-put overlay 'button widget)
     (overlay-put overlay 'keymap (widget-get widget :keymap))
     (overlay-put overlay 'evaporate t)