summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2022-04-12 12:43:56 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2022-04-12 12:43:56 +0200
commit3de2462da7306f3b342f6402dd0c0b185ac2741f (patch)
tree080a184fd6741559f534339f6fbae04560642a9c
parent8c3d655fe76e1148adcaac0b2fe9550621ba7e54 (diff)
downloademacs-3de2462da7306f3b342f6402dd0c0b185ac2741f.tar.gz
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.
-rw-r--r--src/image.c10
1 files changed, 5 insertions, 5 deletions
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)