From edf29496b3fbde5bd209f94b700946e6be3af44b Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 20 Sep 2007 18:56:07 +0000 Subject: [PATCH] (widget-image-insert): Don't merge mouse-face with neighbouring buttons. --- lisp/wid-edit.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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." (progn (widget-put widget :suppress-face t) (insert-image image (propertize - tag 'mouse-face widget-button-pressed-face))) + ;; Use a `list' so it's unique and won't get + ;; accidentally merged with neighbouring images. + tag 'mouse-face (list widget-button-pressed-face)))) (insert tag))) (defun widget-move-and-invoke (event) -- 2.39.2