Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-image.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 49a24b4fd526
children 8fc7fe29b841
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
5 5
6 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 6 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
7 ;; Dan Rich <drich@morpheus.corp.sgi.com> 7 ;; Dan Rich <drich@morpheus.corp.sgi.com>
8 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp> 8 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
9 ;; Created: 1995/12/15 9 ;; Created: 1995/12/15
10 ;; Version: $Id: tm-image.el,v 1.3 1996/12/29 00:15:14 steve Exp $ 10 ;; Version: $Id: tm-image.el,v 1.4 1997/02/09 23:51:47 steve Exp $
11 11
12 ;; Keywords: mail, news, MIME, multimedia, image, picture, X-Face 12 ;; Keywords: mail, news, MIME, multimedia, image, picture, X-Face
13 13
14 ;; This file is part of tm (Tools for MIME). 14 ;; This file is part of tm (Tools for MIME).
15 15
222 ) 222 )
223 (remove-text-properties beg end '(face nil)) 223 (remove-text-properties beg end '(face nil))
224 (mime-decode-region beg end encoding) 224 (mime-decode-region beg end encoding)
225 (let ((data (buffer-string)) 225 (let ((data (buffer-string))
226 (minor (assoc-value ctype mime-viewer/image-converter-alist)) 226 (minor (assoc-value ctype mime-viewer/image-converter-alist))
227 gl) 227 gl e)
228 (delete-region (point-min)(point-max)) 228 (delete-region (point-min)(point-max))
229 (while (progn 229 (while (progn
230 (setq gl (make-glyph (vector minor :data data))) 230 (setq gl (make-glyph (vector minor :data data)))
231 (eq (image-instance-type (glyph-image-instance gl)) 231 (eq (image-instance-type (glyph-image-instance gl))
232 'text) 232 'text)
233 )) 233 ))
234 (make-annotation gl (point) 'text) 234 (setq e (make-extent (point) (point)))
235 (set-extent-end-glyph e gl)
235 ) 236 )
236 (insert "\n") 237 (insert "\n")
237 )) 238 ))
238 239
239 240