Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-def.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 49a24b4fd526
children 8fc7fe29b841
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
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.3 1996/12/29 00:15:13 steve Exp $ 6 ;; Version: $Id: tm-def.el,v 1.4 1997/02/02 05:06:19 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
109 \[tm-def.el]") 109 \[tm-def.el]")
110 110
111 (defvar tm:mouse-face 'highlight 111 (defvar tm:mouse-face 'highlight
112 "Face used for MIME-preview buffer mouse highlighting. [tm-def.el]") 112 "Face used for MIME-preview buffer mouse highlighting. [tm-def.el]")
113 113
114 (defvar tm:warning-face nil
115 "Face used for invalid encoded-word.")
116
114 (defun tm:add-button (from to func &optional data) 117 (defun tm:add-button (from to func &optional data)
115 "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."
116 (and tm:button-face 119 (and tm:button-face
117 (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))
118 (tl:add-text-properties from to 121 (tl:add-text-properties from to
181 184
182 185
183 ;;; @@ Base64 186 ;;; @@ Base64
184 ;;; 187 ;;;
185 188
186 (defconst base64-token-regexp "[A-Za-z0-9+/=]") 189 (defconst base64-token-regexp "[A-Za-z0-9+/]")
187 (defconst base64-token-padding-regexp "[A-Za-z0-9+/=]") 190 (defconst base64-token-padding-regexp "[A-Za-z0-9+/=]")
188 191
189 (defconst mime/B-encoded-text-regexp 192 (defconst mime/B-encoded-text-regexp
190 (concat "\\(\\(" 193 (concat "\\(\\("
191 base64-token-regexp 194 base64-token-regexp