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

diff --git a/ChangeLog b/ChangeLog
index 74adc14..bc5d368 100644 (file)
--- 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 (file)
--- 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.