mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 07:41:28 -08:00
Code Issues Projects Releases Wiki Activity

(animate-string): Handle case that the string is

Browse source 
longer than the window is wide.
This commit is contained in:
Gerd Moellmann 2001-08-01 08:02:45 +00:00
parent ed86208c4e
commit 01056f71f7
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/play/animate.el
View file

@ -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.)