/[emacs]/emacs/lisp/image.el
ViewVC logotype

Diff of /emacs/lisp/image.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.50 by cyd, Sun Sep 18 14:04:46 2005 UTC revision 1.51 by cyd, Wed Oct 19 03:55:20 2005 UTC
# Line 135  use its file extension as image type. Line 135  use its file extension as image type.
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)
# Line 317  is supported, and FILE exists, is used t Line 319  is supported, and FILE exists, is used t
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))

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26