diff options
| author | Stefan Monnier | 2007-09-20 18:56:07 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2007-09-20 18:56:07 +0000 |
| commit | edf29496b3fbde5bd209f94b700946e6be3af44b (patch) | |
| tree | ef3dde5b598b46f8822834bfc4d78633c4213066 | |
| parent | 176c6903e82d3a4325e40bb38edc0b92044cd6b4 (diff) | |
| download | emacs-edf29496b3fbde5bd209f94b700946e6be3af44b.tar.gz emacs-edf29496b3fbde5bd209f94b700946e6be3af44b.zip | |
(widget-image-insert): Don't merge mouse-face with neighbouring buttons.
| -rw-r--r-- | lisp/wid-edit.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 6725144e682..abb7fb6631e 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -656,7 +656,9 @@ button is pressed or inactive, respectively. These are currently ignored." | |||
| 656 | (progn (widget-put widget :suppress-face t) | 656 | (progn (widget-put widget :suppress-face t) |
| 657 | (insert-image image | 657 | (insert-image image |
| 658 | (propertize | 658 | (propertize |
| 659 | tag 'mouse-face widget-button-pressed-face))) | 659 | ;; Use a `list' so it's unique and won't get |
| 660 | ;; accidentally merged with neighbouring images. | ||
| 661 | tag 'mouse-face (list widget-button-pressed-face)))) | ||
| 660 | (insert tag))) | 662 | (insert tag))) |
| 661 | 663 | ||
| 662 | (defun widget-move-and-invoke (event) | 664 | (defun widget-move-and-invoke (event) |