Commit 46a048fc authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(animate-place-char): Use forward-line instead

of next-line to improve performance.
parent 7f351d0b
......@@ -80,9 +80,11 @@
;;; 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))
(let (abbrev-mode)
(dotimes (i vpos)
(next-line 1)))
(end-of-line)
(if (= (forward-line 1) 1)
(insert "\n"))))
(beginning-of-line)
(move-to-column (floor hpos) t)
(unless (eolp) (delete-char 1))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment