diff options
| author | Po Lu <luangruo@yahoo.com> | 2021-12-30 19:43:58 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2021-12-30 19:43:58 +0800 |
| commit | a67b1f1944262f41e58c87f09d28858725aa5ca9 (patch) | |
| tree | ce6ba494310152ad2d4f4d839c8c108ca1c962a8 /lisp/wid-edit.el | |
| parent | cc9ac56081719f553b3e7758c391c595c3fa4eaf (diff) | |
| download | emacs-a67b1f1944262f41e58c87f09d28858725aa5ca9.tar.gz emacs-a67b1f1944262f41e58c87f09d28858725aa5ca9.tar.bz2 emacs-a67b1f1944262f41e58c87f09d28858725aa5ca9.zip | |
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)
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 3 |
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) |