; Fix my last commit

* lisp/play/animate.el (animate-string): Ensure the delay is always a
float.

diff --git a/lisp/play/animate.el b/lisp/play/animate.el
index f3c77b31a5dda020deaa9225c7d2e6a87b9b127b..54ee9dc84eb18e0dc0345985d83400f95f452050 100644 (file)
--- a/lisp/play/animate.el
+++ b/lisp/play/animate.el
@@ -138,7 +138,7 @@ in the current window."
        ;; Make sure buffer is displayed starting at the beginning.
        (set-window-start nil 1)
        ;; Display it, and wait just a little while.
-        (sit-for (/ animate-total-added-delay (max animate-n-steps 1)))
+        (sit-for (/ (float animate-total-added-delay) (max animate-n-steps 1)))
        ;; Now undo the changes we made in the buffer.
        (setq list-to-undo buffer-undo-list)
        (while list-to-undo