From 186637314dfa287b4b8178b668de92ecb57fdf1a Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 5 Dec 2021 19:30:27 -0800 Subject: [PATCH] Fix image load timekeeping bug * lisp/image.el (image-animate-timeout): Fix bug that caused the local variable time-to-load-image to be practically zero, instead of the time it actually took to load the image. I think this bug was introduced in 2013-02-16T03:29:30Z!rgm@gnu.org. --- lisp/image.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/image.el b/lisp/image.el index 87fab80aad8..cedefc038f0 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -953,9 +953,9 @@ for the animation speed. A negative value means to animate in reverse." (progn (message "Stopping animation; animation possibly too big") nil))) - (image-show-frame image n t) - (let* ((speed (image-animate-get-speed image)) - (time (current-time)) + (let* ((time (prog1 (current-time) + (image-show-frame image n t))) + (speed (image-animate-get-speed image)) (time-to-load-image (time-since time)) (stated-delay-time (/ (or (cdr (plist-get (cdr image) :animate-multi-frame-data)) -- 2.39.2