Function: rectangle--region-beginning

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

Signature

(rectangle--region-beginning ORIG)

Documentation

Like region-beginning but supports rectangular regions.

Source Code

;; Defined in /usr/src/emacs/lisp/rect.el.gz
(defun rectangle--region-beginning (orig)
  "Like `region-beginning' 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 start)
        (move-to-column (min startcol endcol))
        (point))))))