Function: extract-rectangle-bounds

extract-rectangle-bounds is a byte-compiled function defined in rect.el.gz.

Signature

(extract-rectangle-bounds START END)

Documentation

Return the bounds of the rectangle with corners at START and END.

Return it as a list of (START . END) positions, one for each line of the rectangle.

Source Code

;; Defined in /usr/src/emacs/lisp/rect.el.gz
(defun extract-rectangle-bounds (start end)
  "Return the bounds of the rectangle with corners at START and END.
Return it as a list of (START . END) positions, one for each line of
the rectangle."
  (let (bounds)
    (apply-on-rectangle
     (lambda (startcol endcol)
       (move-to-column startcol)
       (push (cons (prog1 (point) (move-to-column endcol)) (point))
	     bounds))
     start end)
    (nreverse bounds)))