;; 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).
"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)