From 1a29143ee6f2800db7735f344232f40a4f71b980 Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 17 Feb 2000 21:22:01 +0000 Subject: [PATCH] (create-image): Fix typo. --- image-bm.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/image-bm.el b/image-bm.el index fc22bb5..275a178 100644 --- a/image-bm.el +++ b/image-bm.el @@ -29,6 +29,8 @@ (require 'poe) +(eval-when-compile (require 'bitmap)) + (defun-maybe image-type-available-p (type) "Value is non-nil if image type TYPE is available. Image types are symbols like `xbm' or `jpeg'. @@ -62,7 +64,7 @@ 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 0 (string-width bitmap) 'pimage-bitmap bitmap) + (put-text-property 1 (string-width bitmap) 'pimage-bitmap bitmap) bitmap) (error nil))))) -- 1.7.10.4