# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 996652965 0
# Node ID 7f4573a730758ba68cfbb36f71ed4b165ed1852f
# Parent  fb9c902157a4ad6b6d52a01f610bff0d7d28981b
(animate-string): Handle case that the string is
longer than the window is wide.

diff -r fb9c902157a4 -r 7f4573a73075 lisp/play/animate.el
--- a/lisp/play/animate.el	Tue Jul 31 14:41:14 2001 +0000
+++ b/lisp/play/animate.el	Wed Aug 01 08:02:45 2001 +0000
@@ -101,7 +101,7 @@
 			     (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.)