Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-def.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 0d2f883870bc
children cca96a509cfe
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
1 ;;; tm-def.el --- definition module for tm 1 ;;; tm-def.el --- definition module for tm
2 2
3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Version: $Id: tm-def.el,v 1.4 1997/02/15 22:21:26 steve Exp $ 6 ;; Version: $Id: tm-def.el,v 1.5 1997/03/16 03:05:46 steve Exp $
7 ;; Keywords: mail, news, MIME, multimedia, definition 7 ;; Keywords: mail, news, MIME, multimedia, definition
8 8
9 ;; This file is part of tm (Tools for MIME). 9 ;; This file is part of tm (Tools for MIME).
10 10
11 ;; This program is free software; you can redistribute it and/or 11 ;; This program is free software; you can redistribute it and/or
116 116
117 (defun tm:add-button (from to func &optional data) 117 (defun tm:add-button (from to func &optional data)
118 "Create a button between FROM and TO with callback FUNC and data DATA." 118 "Create a button between FROM and TO with callback FUNC and data DATA."
119 (and tm:button-face 119 (and tm:button-face
120 (tl:overlay-put (tl:make-overlay from to) 'face tm:button-face)) 120 (tl:overlay-put (tl:make-overlay from to) 'face tm:button-face))
121 (tl:add-text-properties from to 121 (add-text-properties from to
122 (append (and tm:mouse-face 122 (append (and tm:mouse-face
123 (list 'mouse-face tm:mouse-face)) 123 (list 'mouse-face tm:mouse-face))
124 (list 'tm-callback func) 124 (list 'tm-callback func)
125 (and data (list 'tm-data data)) 125 (and data (list 'tm-data data))
126 )) 126 ))
127 ) 127 )
128 128
129 (defvar tm:mother-button-dispatcher nil) 129 (defvar tm:mother-button-dispatcher nil)
130 130
131 (defun tm:button-dispatcher (event) 131 (defun tm:button-dispatcher (event)