changeset 99674:c52ab3389759

(widget-image-insert): Don't add a mouse-face.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 17 Nov 2008 18:37:47 +0000
parents 1d9acf55fb04
children b0ca8a5b94ae
files lisp/wid-edit.el
diffstat 1 files changed, 1 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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)