1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/play/animate.el b/lisp/play/animate.el
index 5ddd90d5a72..ee0c070912f 100644
--- a/lisp/play/animate.el
+++ b/lisp/play/animate.el
@@ -101,7 +101,7 @@ in the current window."
                              (or hpos
                                  ;; HPOS unspecified, so compute
                                  ;; it so as to center the string.
-                                 (/ (- (window-width) (length string)) 2)))))
+                                 (max 0 (/ (- (window-width) (length string)) 2))))))
     (dotimes (i animate-n-steps)
       ;; Bind buffer-undo-list so it will be unchanged when we are done.
       ;; (We're going to undo all our changes anyway.)