# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1191709069 0
# Node ID c27859b68484e0a2997b14d70a43520d17d5b418
# Parent  7ad3fd2afe1093d7b14956770f8f06b3ef5c81af
(image-type): Check if image-types is bound to not fail on tty.

diff -r 7ad3fd2afe10 -r c27859b68484 lisp/image.el
--- a/lisp/image.el	Sat Oct 06 22:17:16 2007 +0000
+++ b/lisp/image.el	Sat Oct 06 22:17:49 2007 +0000
@@ -323,7 +323,7 @@
 		 (or (image-type-from-file-header source)
 		     (image-type-from-file-name source))))
     (or type (error "Cannot determine image type")))
-  (or (memq type image-types)
+  (or (memq type (and (boundp 'image-types) image-types))
       (error "Invalid image type `%s'" type))
   type)