Mercurial > emacs

changeset 78847:ee94dfa84d72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(widget-image-insert): Don't merge mouse-face with neighbouring buttons.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 20 Sep 2007 18:56:07 +0000
parents b9fb68272e26
children 38c9038666da
files lisp/wid-edit.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)