228 |
|
|
229 |
|
|
230 |
(defun insert-sliced-image (image &optional string area rows cols) |
(defun insert-sliced-image (image &optional string area rows cols) |
231 |
|
"Insert IMAGE into current buffer at point. |
232 |
|
IMAGE is displayed by inserting STRING into the current buffer |
233 |
|
with a `display' property whose value is the image. STRING is |
234 |
|
defaulted if you omit it. |
235 |
|
AREA is where to display the image. AREA nil or omitted means |
236 |
|
display it in the text area, a value of `left-margin' means |
237 |
|
display it in the left marginal area, a value of `right-margin' |
238 |
|
means display it in the right marginal area. |
239 |
|
The image is automatically split into ROW x COLS slices." |
240 |
(unless string (setq string " ")) |
(unless string (setq string " ")) |
241 |
(unless (eq (car-safe image) 'image) |
(unless (eq (car-safe image) 'image) |
242 |
(error "Not an image: %s" image)) |
(error "Not an image: %s" image)) |