diff options
| author | Stefan Kangas | 2021-11-20 13:18:17 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2021-11-20 13:18:17 +0100 |
| commit | 560a6c35cb274af6b79f89eddbdbb2fd6c00e2b0 (patch) | |
| tree | b9a2f78c4f5ade987bd399fe4baba377788cd1b4 | |
| parent | 14cd6ec8d269415ad4c342580c53528ab1bb17b2 (diff) | |
| download | emacs-560a6c35cb274af6b79f89eddbdbb2fd6c00e2b0.tar.gz emacs-560a6c35cb274af6b79f89eddbdbb2fd6c00e2b0.zip | |
; Fix my last commit
* lisp/play/animate.el (animate-string): Ensure the delay is always a
float.
| -rw-r--r-- | lisp/play/animate.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/play/animate.el b/lisp/play/animate.el index f3c77b31a5d..54ee9dc84eb 100644 --- a/lisp/play/animate.el +++ b/lisp/play/animate.el | |||
| @@ -138,7 +138,7 @@ in the current window." | |||
| 138 | ;; Make sure buffer is displayed starting at the beginning. | 138 | ;; Make sure buffer is displayed starting at the beginning. |
| 139 | (set-window-start nil 1) | 139 | (set-window-start nil 1) |
| 140 | ;; Display it, and wait just a little while. | 140 | ;; Display it, and wait just a little while. |
| 141 | (sit-for (/ animate-total-added-delay (max animate-n-steps 1))) | 141 | (sit-for (/ (float animate-total-added-delay) (max animate-n-steps 1))) |
| 142 | ;; Now undo the changes we made in the buffer. | 142 | ;; Now undo the changes we made in the buffer. |
| 143 | (setq list-to-undo buffer-undo-list) | 143 | (setq list-to-undo buffer-undo-list) |
| 144 | (while list-to-undo | 144 | (while list-to-undo |