[Emacs-diffs] Changes to emacs/lisp/play/animate.el

[Kim F . Storm]

Index: emacs/lisp/play/animate.el
diff -c emacs/lisp/play/animate.el:1.10 emacs/lisp/play/animate.el:1.11
*** emacs/lisp/play/animate.el:1.10     Sat Feb 21 13:28:03 2004
--- emacs/lisp/play/animate.el  Wed Mar  9 22:50:09 2005
***************
*** 80,88 ****
  ;;; Place the character CHAR at position VPOS, HPOS in the current buffer.
  (defun animate-place-char (char vpos hpos)
    (goto-char (window-start))
!   (let ((next-line-add-newlines t))
      (dotimes (i vpos)
!       (next-line 1)))
    (beginning-of-line)
    (move-to-column (floor hpos) t)
    (unless (eolp) (delete-char 1))
--- 80,90 ----
  ;;; Place the character CHAR at position VPOS, HPOS in the current buffer.
  (defun animate-place-char (char vpos hpos)
    (goto-char (window-start))
!   (let (abbrev-mode)
      (dotimes (i vpos)
!       (end-of-line)
!       (if (= (forward-line 1) 1)
!         (insert "\n"))))
    (beginning-of-line)
    (move-to-column (floor hpos) t)
    (unless (eolp) (delete-char 1))