From 8e10b3a2d0f5cf6b92110c385866131588568ad1 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 18 Feb 2000 08:00:09 +0000 Subject: [PATCH] * image-bm.el (create-image): Don't set 'pimage-bitmap property. --- ChangeLog | 1 + image-bm.el | 3 +-- 2 files changed, 2 insertions(+), 2 deletions(-) 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. -- 1.7.10.4