From 0a4c075d7112c49e5ede7328f06254b9a64a3e02 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 24 Oct 2000 06:07:26 +0000 Subject: [PATCH] * wl-message.el (wl-message-add-button): Use overlay. --- wl/ChangeLog | 4 ++++ wl/wl-message.el | 10 ++++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 90fba91..f8f6013 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2000-10-24 Daiki Ueno + + * wl-message.el (wl-message-add-button): Use overlay. + 2000-10-24 Yuuichi Teranishi * wl-draft.el (wl-draft-parse-mailbox-list): Don't insert extra space. diff --git a/wl/wl-message.el b/wl/wl-message.el index c1c7684..8d52d2c 100644 --- a/wl/wl-message.el +++ b/wl/wl-message.el @@ -556,11 +556,13 @@ "Create a button between FROM and TO with callback FUNCTION and DATA." (add-text-properties from to - (nconc (list 'mouse-face 'highlight) - (list 'local-map wl-message-button-map) - (list 'wl-message-button-callback function) + (nconc (list 'wl-message-button-callback function) (if data - (list 'wl-message-button-data data))))) + (list 'wl-message-button-data data)))) + (let ((ov (make-overlay from to))) + (overlay-put ov 'mouse-face 'highlight) + (overlay-put ov 'local-map wl-message-button-map) + (overlay-put ov 'evaporate t))) (defun wl-message-button-dispatcher (event) "Select the button under point." -- 1.7.10.4