Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-image.el @ 96:dbb370e3c29e r20-0final

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0final
author cvs
date Mon, 13 Aug 2007 09:12:40 +0200
parents c0c698873ce1
children 0d2f883870bc
comparison
equal deleted inserted replaced
95:e8c07a565f9c 96:dbb370e3c29e
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.2 1996/12/28 21:03:14 steve Exp $ 10 ;; Version: $Id: tm-image.el,v 1.3 1997/02/08 03:26:13 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