tm 7.70.

[elisp/tm.git] / tm-def.el

diff --git a/tm-def.el b/tm-def.el
index 18d19b1..d074951 100644 (file)
--- a/tm-def.el
+++ b/tm-def.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: tm-def.el,v 7.46 1996/06/26 15:32:13 morioka Exp $
+;;;    $Id: tm-def.el,v 7.47 1996/07/04 16:57:03 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia, definition
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -283,16 +283,17 @@
 (defun tm:button-dispatcher (event)
   "Select the button under point."
   (interactive "e")
-  (mouse-set-point event)
-  (let ((func (get-text-property (point) 'tm-callback))
-       (data (get-text-property (point) 'tm-data))
-       )
-    (if func
-       (apply func data)
-      (if (fboundp tm:mother-button-dispatcher)
-         (funcall tm:mother-button-dispatcher event)
-       )
-      )))
+  (save-window-excursion
+    (mouse-set-point event)
+    (let ((func (get-text-property (point) 'tm-callback))
+         (data (get-text-property (point) 'tm-data))
+         )
+      (if func
+         (apply func data)
+       (if (fboundp tm:mother-button-dispatcher)
+           (funcall tm:mother-button-dispatcher event)
+         )
+       ))))
 
 
 ;;; @ for URL