X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tm-def.el;h=3686df9023ee7cb428d8c63079c6c4be12a86bb3;hb=b77b17617ad6e2d752ffa07cc4232a54c6ebae81;hp=332a9e7fca5deeade58e61c21a1d3426857d37ce;hpb=0275741d6c108099a90adc9bebb4b48c91f1aa55;p=elisp%2Ftm.git

diff --git a/tm-def.el b/tm-def.el
index 332a9e7..3686df9 100644
--- a/tm-def.el
+++ b/tm-def.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: tm-def.el,v 7.71 1997/02/13 14:29:53 morioka Exp $
+;; Version: $Id: tm-def.el,v 7.72 1997/03/06 17:52:22 morioka Exp $
 ;; Keywords: mail, news, MIME, multimedia, definition
 
 ;; This file is part of tm (Tools for MIME).
@@ -118,12 +118,12 @@
   "Create a button between FROM and TO with callback FUNC and data DATA."
   (and tm:button-face
        (tl:overlay-put (tl:make-overlay from to) 'face tm:button-face))
-  (tl:add-text-properties from to
-			  (append (and tm:mouse-face
-				       (list 'mouse-face tm:mouse-face))
-				  (list 'tm-callback func)
-				  (and data (list 'tm-data data))
-				  ))
+  (add-text-properties from to
+		       (append (and tm:mouse-face
+				    (list 'mouse-face tm:mouse-face))
+			       (list 'tm-callback func)
+			       (and data (list 'tm-data data))
+			       ))
   )
 
 (defvar tm:mother-button-dispatcher nil)