From: ueno <ueno>
Date: Fri, 18 Feb 2000 05:04:43 +0000 (+0000)
Subject: (insert-image): Rewrite.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9951e32cda81ff0d981e8f309f95961abdb71ace;p=elisp%2Fapel.git

(insert-image): Rewrite.
---

diff --git a/image-stpl.el b/image-stpl.el
index c0fbf25..0995d6c 100644
--- a/image-stpl.el
+++ b/image-stpl.el
@@ -97,17 +97,17 @@ means display it in the right marginal area.
   (save-excursion
     (save-restriction
       (narrow-to-region (point)(point))
-      (insert (mapconcat
-	       (function ignore)
-	       (make-list (/ (cadr image)
-			     (frame-char-height))
-			  (make-string (/ (car image)
-					  (frame-char-width))
-				       ? )) "\n"))
       (or (facep 'image-stipple-splash)
 	  (make-face 'image-stipple-splash))
       (set-face-stipple 'image-stipple-splash image)
-      (set-text-properties (point-min)(point) '(face image-stipple-splash)))))
+      (let ((row (make-string (/ (car image)  (frame-char-width)) ? ))
+	    (height (/ (nth 1 image)  (frame-char-height)))
+	    (i 0))
+	(while (< i height)
+	  (set-text-properties (point) (progn (insert row)(point))
+			       '(face image-stipple-splash))
+	  (insert "\n")
+	  (setq i (1+ i)))))))
 
 (defun-maybe remove-images (start end &optional buffer)
   "Remove images between START and END in BUFFER.