diff options
| author | Chong Yidong | 2008-11-17 18:37:47 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-11-17 18:37:47 +0000 |
| commit | f331f1f80c0c62d4d77b6b0d27edecb6b239a3ec (patch) | |
| tree | b29ec62b85f53a660a96935bca75b856cc7dcca5 | |
| parent | 58caa5cf7009a7a2f293e525c6c3d74be325400a (diff) | |
| download | emacs-f331f1f80c0c62d4d77b6b0d27edecb6b239a3ec.tar.gz emacs-f331f1f80c0c62d4d77b6b0d27edecb6b239a3ec.zip | |
(widget-image-insert): Don't add a mouse-face.
| -rw-r--r-- | lisp/wid-edit.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 202ee215b14..c0135f842b3 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -662,11 +662,7 @@ button is pressed or inactive, respectively. These are currently ignored." | |||
| 662 | (if (and (display-graphic-p) | 662 | (if (and (display-graphic-p) |
| 663 | (setq image (widget-image-find image))) | 663 | (setq image (widget-image-find image))) |
| 664 | (progn (widget-put widget :suppress-face t) | 664 | (progn (widget-put widget :suppress-face t) |
| 665 | (insert-image image | 665 | (insert-image image tag)) |
| 666 | (propertize | ||
| 667 | ;; Use a `list' so it's unique and won't get | ||
| 668 | ;; accidentally merged with neighbouring images. | ||
| 669 | tag 'mouse-face (list widget-button-pressed-face)))) | ||
| 670 | (insert tag))) | 666 | (insert tag))) |
| 671 | 667 | ||
| 672 | (defun widget-move-and-invoke (event) | 668 | (defun widget-move-and-invoke (event) |