Function: cua--rectangle-top

cua--rectangle-top is a byte-compiled function defined in cua-rect.el.gz.

Signature

(cua--rectangle-top &optional VAL)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/cua-rect.el.gz
;;; Rectangle geometry

(defun cua--rectangle-top (&optional val)
  ;; Top of CUA rectangle (buffer position on first line).
  (if (not val)
      (aref cua--rectangle 0)
    (setq val (line-beginning-position))
    (if (<= val (aref cua--rectangle 1))
        (aset cua--rectangle 0 val)
      (aset cua--rectangle 1 val)
      (cua--rectangle-corner 2))))