From: ueno <ueno>
Date: Fri, 18 Feb 2000 08:00:09 +0000 (+0000)
Subject: * image-bm.el (create-image): Don't set 'pimage-bitmap property.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=refs%2Fheads%2Fapel-image;p=elisp%2Fapel.git

* image-bm.el (create-image): Don't set 'pimage-bitmap property.
---

diff --git a/ChangeLog b/ChangeLog
index bc5d368..832bb58 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -9,6 +9,7 @@
 	* image-stpl.el: New file.
 
 	* image-bm.el: Don't require bitmap when compiling.
+	(create-image): Don't set 'pimage-bitmap property.
 
 	* image-xm.el (insert-image): Set as extent end glyph.
 
diff --git a/image-bm.el b/image-bm.el
index ce55c84..146385d 100644
--- a/image-bm.el
+++ b/image-bm.el
@@ -62,7 +62,6 @@ Value is the image created, or nil if images of type TYPE are not supported.
 	      (setq bitmap (concat bitmap "\n"
 				   (bitmap-compose (aref image i)))
 		    i (1+ i)))
-	    (put-text-property 1 (length bitmap) 'pimage-bitmap bitmap)
 	    bitmap)
 	(error nil)))))
 
@@ -75,7 +74,7 @@ display it in the text area, a value of `left-margin' means
 display it in the left marginal area, a value of `right-margin'
 means display it in the right marginal area.
 \[Emacs 21 emulating function]"
-  (insert image))
+  (put-text-property (point) (progn (insert image)(point)) 'pimage-bitmap))
 
 (defun-maybe remove-images (start end &optional buffer)
   "Remove images between START and END in BUFFER.