Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-def.el @ 10:49a24b4fd526 r19-15b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b6
author cvs
date Mon, 13 Aug 2007 08:47:52 +0200
parents 4b173ad71786
children 0293115a14e9
comparison
equal deleted inserted replaced
9:6f2bbbbbe05a 10:49a24b4fd526
1 ;;; tm-def.el --- definition module for tm 1 ;;; tm-def.el --- definition module for tm
2 2
3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996 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.2 1996/12/22 00:29:38 steve Exp $ 6 ;; Version: $Id: tm-def.el,v 1.3 1996/12/29 00:15:13 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
102 (defun tm:set-face-region (b e face) 102 (defun tm:set-face-region (b e face)
103 (let ((overlay (tl:make-overlay b e))) 103 (let ((overlay (tl:make-overlay b e)))
104 (tl:overlay-put overlay 'face face) 104 (tl:overlay-put overlay 'face face)
105 )) 105 ))
106 106
107 (setq tm:button-face 'bold) 107 (defvar tm:button-face 'bold
108 (setq tm:mouse-face 'highlight) 108 "Face used for content-button or URL-button of MIME-Preview buffer.
109 \[tm-def.el]")
110
111 (defvar tm:mouse-face 'highlight
112 "Face used for MIME-preview buffer mouse highlighting. [tm-def.el]")
109 113
110 (defun tm:add-button (from to func &optional data) 114 (defun tm:add-button (from to func &optional data)
111 "Create a button between FROM and TO with callback FUNC and data DATA." 115 "Create a button between FROM and TO with callback FUNC and data DATA."
112 (and tm:button-face 116 (and tm:button-face
113 (tl:overlay-put (tl:make-overlay from to) 'face tm:button-face)) 117 (tl:overlay-put (tl:make-overlay from to) 'face tm:button-face))