From: Miles Bader <miles@gnu.org>
Date: Wed, 16 Jun 2004 02:45:09 +0000 (+0000)
Subject: Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-410
X-Git-Tag: ttn-vms-21-2-B4~5741
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=803aac3efae5292143813cc0f8357bb0f7787615;p=emacs.git

Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-410

Make sure image types are initialized for lookup too
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 96289d650a3..075ae902d22 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2004-06-16  Miles Bader  <miles@gnu.org>
+
+	* image.c (lookup_image_type): Initialize image type if necessary.
+
 2004-06-15  Kim F. Storm  <storm@cua.dk>
 
 	* xdisp.c (try_cursor_movement): Exclude header line from scroll
diff --git a/src/image.c b/src/image.c
index 3eccf0f001e..438e132807f 100644
--- a/src/image.c
+++ b/src/image.c
@@ -689,6 +689,10 @@ lookup_image_type (symbol)
 {
   struct image_type *type;
 
+  /* We must initialize the image-type if it hasn't been already.  */
+  if (NILP (Finit_image_library (symbol)))
+    return 0;			/* unimplemented */
+
   for (type = image_types; type; type = type->next)
     if (EQ (symbol, *type->type))
       break;