Function: artist-save-chars-under-sline

artist-save-chars-under-sline is a byte-compiled function defined in artist.el.gz.

Signature

(artist-save-chars-under-sline LINE)

Documentation

Save characters under a LINE.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
(defun artist-save-chars-under-sline (line)
  "Save characters under a LINE."
  (let ((x (aref line 0))
        (y (aref line 1))
        (length (+ (aref line 2) 4))
        (direction (aref line 3))
        (i 4))
    (while (< i length)
      (aset line i (artist-get-char-at-xy x y))
      (setq x (+ x (artist-direction-step-x direction)))
      (setq y (+ y (artist-direction-step-y direction)))
      (setq i (1+ i))))
    line)