(image-type-available-p): Don't reference image-types

if it isn't bound.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25e8dcd0dc3524eb26c602ba42fe274fa68879f9..2f7fd3e20b2fefab5dc9e86e561b610f019e2bc7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-17  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * image.el (image-type-available-p): Don't reference image-types
+       if it isn't bound.
+
 2000-05-17  Stefan Monnier  <monnier@cs.yale.edu>
 
        * autoarg.el (autoarg-mode): Typo in the :set argument.

diff --git a/lisp/image.el b/lisp/image.el
index 78ca54add950a5a11c6ae304f760975db2903bcb..0c1e54a702bc7283947118b37c5c619aac7664dd 100644 (file)
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -72,7 +72,7 @@ be determined."
 (defun image-type-available-p (type)
   "Value is non-nil if image type TYPE is available.
 Image types are symbols like `xbm' or `jpeg'."
-  (not (null (memq type image-types))))
+  (and (boundp 'image-types) (not (null (memq type image-types)))))
 
 
 ;;;###autoload