# HG changeset patch # User Juanma Barranquero # Date 1117199870 0 # Node ID f5a3eeaf3d70e11cc187bf5b1270c0a09d502f5d # Parent 94db1d097527b60e8be56c5690b1e09aad58111d (image-library-alist): Moved to image.c. (image-type-available-p): Doc fix. diff -r 94db1d097527 -r f5a3eeaf3d70 lisp/image.el --- a/lisp/image.el Fri May 27 13:16:05 2005 +0000 +++ b/lisp/image.el Fri May 27 13:17:50 2005 +0000 @@ -48,20 +48,6 @@ with one argument, a string containing the image data. If PREDICATE returns a non-nil value, TYPE is the image's type.") -;;;###autoload -(defvar image-library-alist nil - "Alist of image types vs external libraries needed to display them. - -Each element is a list (IMAGE-TYPE LIBRARY...), where the car is a symbol -representing a supported image type, and the rest are strings giving -alternate filenames for the corresponding external libraries. - -Emacs tries to load the libraries in the order they appear on the -list; if none is loaded, the running session of Emacs won't -support the image type. Types 'pbm and 'xbm don't need to be -listed; they're always supported.") -;;;###autoload (put 'image-library-alist 'risky-local-variable t) - (defun image-jpeg-p (data) "Value is non-nil if DATA, a string, consists of JFIF image data. We accept the tag Exif because that is the same format." @@ -122,7 +108,7 @@ ;;;###autoload (defun image-type-available-p (type) - "Value is non-nil if image type TYPE is available. + "Return non-nil if image type TYPE is available. Image types are symbols like `xbm' or `jpeg'." (and (fboundp 'init-image-library) (init-image-library type image-library-alist)))