Mercurial > hg > xemacs-beta
diff lisp/tm/tm-image.el @ 96:dbb370e3c29e r20-0final
Import from CVS: tag r20-0final
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:12:40 +0200 |
parents | c0c698873ce1 |
children | 0d2f883870bc |
line wrap: on
line diff
--- a/lisp/tm/tm-image.el Mon Aug 13 09:12:11 2007 +0200 +++ b/lisp/tm/tm-image.el Mon Aug 13 09:12:40 2007 +0200 @@ -7,7 +7,7 @@ ;; Dan Rich <drich@morpheus.corp.sgi.com> ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp> ;; Created: 1995/12/15 -;; Version: $Id: tm-image.el,v 1.2 1996/12/28 21:03:14 steve Exp $ +;; Version: $Id: tm-image.el,v 1.3 1997/02/08 03:26:13 steve Exp $ ;; Keywords: mail, news, MIME, multimedia, image, picture, X-Face @@ -224,14 +224,15 @@ (mime-decode-region beg end encoding) (let ((data (buffer-string)) (minor (assoc-value ctype mime-viewer/image-converter-alist)) - gl) + gl e) (delete-region (point-min)(point-max)) (while (progn (setq gl (make-glyph (vector minor :data data))) (eq (image-instance-type (glyph-image-instance gl)) 'text) )) - (make-annotation gl (point) 'text) + (setq e (make-extent (point) (point))) + (set-extent-end-glyph e gl) ) (insert "\n") ))