Function: rectangle--region-end

rectangle--region-end is a byte-compiled function defined in rect.el.gz.

Signature

(rectangle--region-end ORIG)

Documentation

Like region-end but supports rectangular regions.

Source Code

;; Defined in /usr/src/emacs/lisp/rect.el.gz
(defun rectangle--region-end (orig)
  "Like `region-end' but supports rectangular regions."
  (cond
   ((not rectangle-mark-mode)
    (funcall orig))
   (t
    (save-excursion
      (let* ((pt (point))
             (mk (mark))
             (start (min pt mk))
             (end (max pt mk))
             (cols (rectangle--pos-cols start end))
             (startcol (car cols))
             (endcol (cdr cols)))
        (goto-char end)
        (move-to-column (max startcol endcol))
        (point))))))