diff options
| -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.") | |||
| 437 | (follow-link (widget-get widget :follow-link)) | 437 | (follow-link (widget-get widget :follow-link)) |
| 438 | (help-echo (widget-get widget :help-echo))) | 438 | (help-echo (widget-get widget :help-echo))) |
| 439 | (widget-put widget :button-overlay overlay) | 439 | (widget-put widget :button-overlay overlay) |
| 440 | (if (functionp help-echo) | 440 | (when (functionp help-echo) |
| 441 | (setq help-echo 'widget-mouse-help)) | 441 | (setq help-echo 'widget-mouse-help)) |
| 442 | (overlay-put overlay 'before-string #(" " 0 1 (invisible t))) | ||
| 442 | (overlay-put overlay 'button widget) | 443 | (overlay-put overlay 'button widget) |
| 443 | (overlay-put overlay 'keymap (widget-get widget :keymap)) | 444 | (overlay-put overlay 'keymap (widget-get widget :keymap)) |
| 444 | (overlay-put overlay 'evaporate t) | 445 | (overlay-put overlay 'evaporate t) |