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

if it isn't bound.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25e8dcd0dc3..2f7fd3e20b2 100644
--- 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 78ca54add95..0c1e54a702b 100644
--- 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