From: ueno <ueno>
Date: Thu, 17 Feb 2000 21:22:01 +0000 (+0000)
Subject: (create-image): Fix typo.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1a29143ee6f2800db7735f344232f40a4f71b980;p=elisp%2Fapel.git

(create-image): Fix typo.
---

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)))))