135 |
Optional DATA-P non-nil means FILE-OR-DATA is a string containing image data. |
Optional DATA-P non-nil means FILE-OR-DATA is a string containing image data. |
136 |
Optional PROPS are additional image attributes to assign to the image, |
Optional PROPS are additional image attributes to assign to the image, |
137 |
like, e.g. `:mask MASK'. |
like, e.g. `:mask MASK'. |
138 |
Value is the image created, or nil if images of type TYPE are not supported." |
Value is the image created, or nil if images of type TYPE are not supported. |
139 |
|
|
140 |
|
Images should not be larger than specified by `max-image-size'." |
141 |
(when (and (not data-p) (not (stringp file-or-data))) |
(when (and (not data-p) (not (stringp file-or-data))) |
142 |
(error "Invalid image file name `%s'" file-or-data)) |
(error "Invalid image file name `%s'" file-or-data)) |
143 |
(cond ((null data-p) |
(cond ((null data-p) |
319 |
specification to be returned. Return nil if no specification is |
specification to be returned. Return nil if no specification is |
320 |
satisfied. |
satisfied. |
321 |
|
|
322 |
The image is looked for in `image-load-path'." |
The image is looked for in `image-load-path'. |
323 |
|
|
324 |
|
Image files should not be larger than specified by `max-image-size'." |
325 |
(let (image) |
(let (image) |
326 |
(while (and specs (null image)) |
(while (and specs (null image)) |
327 |
(let* ((spec (car specs)) |
(let* ((spec (car specs)) |