From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 17 May 2000 15:58:11 +0000 (+0000)
Subject: (image-type-available-p): Don't reference image-types
X-Git-Tag: emacs-pretest-21.0.90~3924
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=249781907d8ed883f5932827ba2bbf8e0d9cb7a6;p=emacs.git

(image-type-available-p): Don't reference image-types
if it isn't bound.
---

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