Function: animate-place-char

animate-place-char is a byte-compiled function defined in animate.el.gz.

Signature

(animate-place-char CHAR VPOS HPOS)

Source Code

;; Defined in /usr/src/emacs/lisp/play/animate.el.gz
;;; 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 (_ 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))
  (insert-char char 1))