From: Joakim Verona <joakim@verona.se>
Date: Fri, 14 May 2010 08:19:30 +0000 (+0200)
Subject: initial support for supplying image count property for image bundles
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~511^2~51
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ed42149b94870108d6cc7de759e1435a4730848;p=emacs.git

initial support for supplying image count property for image bundles
by imagemagick.
---

diff --git a/src/image.c b/src/image.c
index 5865d7be00a..1bc58db57b8 100644
--- a/src/image.c
+++ b/src/image.c
@@ -7926,6 +7926,14 @@ imagemagick_load_image (f, img, contents, size, filename)
                             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);