Improve gif_load error messages

* src/image.c (gif_load): Improve error reporting (bug#54848).

diff --git a/src/image.c b/src/image.c
index e3e540e5e28967d68b50c1e6ff53b8b8e2292e60..3f9111a7093a248c3a72b3b78eced812e1d2bd8c 100644 (file)
--- a/src/image.c
+++ b/src/image.c
@@ -8754,10 +8754,21 @@ gif_load (struct frame *f, struct image *img)
   rc = DGifSlurp (gif);
   if (rc == GIF_ERROR || gif->ImageCount <= 0)
     {
-      if (NILP (specified_data))
-       image_error ("Error reading `%s'", img->spec);
+#if HAVE_GIFERRORSTRING
+      const char *errstr = GifErrorString (gif->Error);
+      if (errstr)
+       if (NILP (specified_data))
+         image_error ("Error reading `%s' (%s)", img->spec,
+                      build_string (errstr));
+       else
+         image_error ("Error reading GIF data: %s",
+                      build_string (errstr));
       else
-       image_error ("Error reading GIF data");
+#endif
+       if (NILP (specified_data))
+         image_error ("Error reading `%s'", img->spec);
+       else
+         image_error ("Error reading GIF data");
       goto gif_error;
     }