# HG changeset patch
# User Joakim <joakim@localhost.localdomain>
# Date 1273825170 -7200
# Node ID ecac5346ac63e5e9fd24293721ea4bac58264958
# Parent  e5961598b18a51a522d5a9c93bf50a8f4c8d72cf
initial support for supplying image count property for image bundles
by imagemagick.

diff -r e5961598b18a -r ecac5346ac63 src/image.c
--- a/src/image.c	Thu May 13 16:04:53 2010 +0200
+++ b/src/image.c	Fri May 14 10:19:30 2010 +0200
@@ -7926,6 +7926,14 @@
                             ximg->data);
   }
   
+
+  //TODO figure out imagecount here!
+  if (MagickGetNumberImages(image_wand) > 1)
+    img->data.lisp_val = Fcons (Qcount,
+				Fcons (make_number (MagickGetNumberImages(image_wand)),
+				       img->data.lisp_val));
+
+
 #ifdef COLOR_TABLE_SUPPORT
   /* Remember colors allocated for this image.  */
   img->colors = colors_in_color_table (&img->ncolors);