From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 12 Apr 2022 10:43:56 +0000 (+0200)
Subject: Animate GIF images that don't have an explicit delay setting
X-Git-Tag: emacs-29.0.90~1931^2~636
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3de2462da7306f3b342f6402dd0c0b185ac2741f;p=emacs.git

Animate GIF images that don't have an explicit delay setting

* src/image.c (gif_load): Use the default delay for GIF images
that don't explicitly state a delay.
---

diff --git a/src/image.c b/src/image.c
index f6143f5b46e..3b3d1fc080a 100644
--- a/src/image.c
+++ b/src/image.c
@@ -9208,11 +9208,11 @@ gif_load (struct frame *f, struct image *img)
 	    }
 	}
       img->lisp_data = list2 (Qextension_data, img->lisp_data);
-      if (delay)
-	img->lisp_data
-	  = Fcons (Qdelay,
-		   Fcons (make_float (delay / 100.0),
-			  img->lisp_data));
+      img->lisp_data
+	= Fcons (Qdelay,
+		 /* Default GIF delay is 1/15th of a second.  */
+		 Fcons (make_float (delay? delay / 100.0: 1.0 / 15),
+			img->lisp_data));
     }
 
   if (gif->ImageCount > 1)