From 9951e32cda81ff0d981e8f309f95961abdb71ace Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 18 Feb 2000 05:04:43 +0000 Subject: [PATCH] (insert-image): Rewrite. --- image-stpl.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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. -- 1.7.10.4