aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2007-09-20 18:56:07 +0000
committerStefan Monnier2007-09-20 18:56:07 +0000
commitedf29496b3fbde5bd209f94b700946e6be3af44b (patch)
treeef3dde5b598b46f8822834bfc4d78633c4213066
parent176c6903e82d3a4325e40bb38edc0b92044cd6b4 (diff)
downloademacs-edf29496b3fbde5bd209f94b700946e6be3af44b.tar.gz
emacs-edf29496b3fbde5bd209f94b700946e6be3af44b.zip
(widget-image-insert): Don't merge mouse-face with neighbouring buttons.
-rw-r--r--lisp/wid-edit.el4
1 files changed, 3 insertions, 1 deletions
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."
656 (progn (widget-put widget :suppress-face t) 656 (progn (widget-put widget :suppress-face t)
657 (insert-image image 657 (insert-image image
658 (propertize 658 (propertize
659 tag 'mouse-face widget-button-pressed-face))) 659 ;; Use a `list' so it's unique and won't get
660 ;; accidentally merged with neighbouring images.
661 tag 'mouse-face (list widget-button-pressed-face))))
660 (insert tag))) 662 (insert tag)))
661 663
662(defun widget-move-and-invoke (event) 664(defun widget-move-and-invoke (event)