diff options
| author | Gerd Moellmann | 2001-08-01 08:02:45 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-08-01 08:02:45 +0000 |
| commit | 01056f71f736ebfd7427de5526f950115ed2fff9 (patch) | |
| tree | 49277d2ad7ea8c3a43ec6cb452a638875339b2b3 | |
| parent | ed86208c4e7c5a16333a7e5c6f4c956a08ab7320 (diff) | |
| download | emacs-01056f71f736ebfd7427de5526f950115ed2fff9.tar.gz emacs-01056f71f736ebfd7427de5526f950115ed2fff9.zip | |
(animate-string): Handle case that the string is
longer than the window is wide.
| -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 5ddd90d5a72..ee0c070912f 100644 --- a/lisp/play/animate.el +++ b/lisp/play/animate.el | |||
| @@ -101,7 +101,7 @@ in the current window." | |||
| 101 | (or hpos | 101 | (or hpos |
| 102 | ;; HPOS unspecified, so compute | 102 | ;; HPOS unspecified, so compute |
| 103 | ;; it so as to center the string. | 103 | ;; it so as to center the string. |
| 104 | (/ (- (window-width) (length string)) 2))))) | 104 | (max 0 (/ (- (window-width) (length string)) 2)))))) |
| 105 | (dotimes (i animate-n-steps) | 105 | (dotimes (i animate-n-steps) |
| 106 | ;; Bind buffer-undo-list so it will be unchanged when we are done. | 106 | ;; Bind buffer-undo-list so it will be unchanged when we are done. |
| 107 | ;; (We're going to undo all our changes anyway.) | 107 | ;; (We're going to undo all our changes anyway.) |