[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/play/animate.el
From: |
Kim F . Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/play/animate.el |
Date: |
Wed, 09 Mar 2005 17:50:09 -0500 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/play/animate.el,
Kim F . Storm <=