From: ueno <ueno>
Date: Fri, 18 Feb 2000 06:37:39 +0000 (+0000)
Subject: * image-xm.el (insert-image): Set as extent end glyph.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d08928623071753a073b886c4f6256163d056543;p=elisp%2Fapel.git

* image-xm.el (insert-image): Set as extent end glyph.
---

diff --git a/ChangeLog b/ChangeLog
index 74adc14..bc5d368 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -10,6 +10,8 @@
 
 	* image-bm.el: Don't require bitmap when compiling.
 
+	* image-xm.el (insert-image): Set as extent end glyph.
+
 2000-02-17   Daiki Ueno  <ueno@ueda.info.waseda.ac.jp>
 
 	* EMU-ELS (emu-modules): Add 'pimage.
diff --git a/image-xm.el b/image-xm.el
index 49471d2..d485478 100644
--- a/image-xm.el
+++ b/image-xm.el
@@ -67,7 +67,7 @@ means display it in the right marginal area.
   (let ((extent (make-extent (point) (progn (insert string)(point)))))
     (set-extent-property extent 'pimage-extent t)
     (set-extent-property extent 'invisible t)
-    (set-extent-begin-glyph extent image)))
+    (set-extent-end-glyph extent image)))
 
 (defun-maybe remove-images (start end &optional buffer)
   "Remove images between START and END in BUFFER.