Function: artist-copy-generic

artist-copy-generic is a byte-compiled function defined in artist.el.gz.

Signature

(artist-copy-generic X1 Y1 X2 Y2)

Documentation

Copy a rectangular area with corners at X1, Y1 and X2, Y2.

Output is a copy buffer, a list of strings, representing the original contents of that area in the buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
(defun artist-copy-generic (x1 y1 x2 y2)
  "Copy a rectangular area with corners at X1, Y1 and X2, Y2.
Output is a copy buffer, a list of strings, representing the
original contents of that area in the buffer."
  (let* ((x     (min x1 x2))
	 (y     (min y1 y2))
	 (x-max (max x1 x2))
	 (y-max (max y1 y2))
	 (w     (+ (- x-max x) 1))
	 (l     nil))
    (while (<= y y-max)
      (setq l (cons (artist-get-buffer-contents-at-xy x y w) l))
      (setq y (1+ y)))
    (if artist-interface-with-rect
	(setq killed-rectangle (reverse l))
      (setq artist-copy-buffer (reverse l)))))