master 3de2462da7: Animate GIF images that don't have an explicit delay setting

[Lars Ingebrigtsen]

branch: master
commit 3de2462da7306f3b342f6402dd0c0b185ac2741f
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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.
---
 src/image.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/image.c b/src/image.c
index f6143f5b46..3b3d1fc080 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)