# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1190314567 0
# Node ID ee94dfa84d728ff1fed12716e8208c54aad115f4
# Parent  b9fb68272e262e0f371dd85c800ed17c7231947a
(widget-image-insert): Don't merge mouse-face with neighbouring buttons.

diff -r b9fb68272e26 -r ee94dfa84d72 lisp/wid-edit.el
--- a/lisp/wid-edit.el	Thu Sep 20 17:12:10 2007 +0000
+++ b/lisp/wid-edit.el	Thu Sep 20 18:56:07 2007 +0000
@@ -656,7 +656,9 @@
       (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)