From: ueno <ueno>
Date: Thu, 17 Feb 2000 20:13:42 +0000 (+0000)
Subject: (insert-image): Hide underlying string.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=82db80a5c63132bdde5c28a7af3f319113f0b237;p=elisp%2Fapel.git

(insert-image): Hide underlying string.
---

diff --git a/image-xm.el b/image-xm.el
index b2dab44..49471d2 100644
--- a/image-xm.el
+++ b/image-xm.el
@@ -66,6 +66,7 @@ means display it in the right marginal area.
 \[Emacs 21 emulating function]"
   (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)))
 
 (defun-maybe remove-images (start end &optional buffer)