Permalink
Browse files

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

  • Loading branch information...
1 parent 8d0b1ad commit 906827996455fc9327d959500e340be64de3de06 ueno committed Feb 18, 2000
Showing with 2 additions and 2 deletions.
  1. +1 −0 ChangeLog
  2. +1 −2 image-bm.el
View
@@ -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.
View
@@ -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.

0 comments on commit 9068279

Please sign in to comment.