# HG changeset patch # User Chong Yidong # Date 1226947067 0 # Node ID c52ab33897598bd9f5bbb8b17467df98ddf9041f # Parent 1d9acf55fb04ed33326c5cadaeeb74d1e0c85de4 (widget-image-insert): Don't add a mouse-face. diff -r 1d9acf55fb04 -r c52ab3389759 lisp/wid-edit.el --- a/lisp/wid-edit.el Mon Nov 17 18:37:38 2008 +0000 +++ b/lisp/wid-edit.el Mon Nov 17 18:37:47 2008 +0000 @@ -662,11 +662,7 @@ (if (and (display-graphic-p) (setq image (widget-image-find image))) (progn (widget-put widget :suppress-face t) - (insert-image image - (propertize - ;; 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-image image tag)) (insert tag))) (defun widget-move-and-invoke (event)