Function: cua-mouse-set-rectangle-mark

cua-mouse-set-rectangle-mark is an interactive and byte-compiled function defined in cua-rect.el.gz.

Signature

(cua-mouse-set-rectangle-mark EVENT)

Documentation

Start rectangle at mouse click position.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/cua-rect.el.gz
(defun cua-mouse-set-rectangle-mark (event)
  "Start rectangle at mouse click position."
  (interactive "e")
  (when cua--rectangle
    (cua--deactivate-rectangle)
    (cua--deactivate t))
  (setq cua--last-rectangle nil)
  (mouse-set-point event)
  ;; FIX ME -- need to calculate virtual column.
  (cua-set-rectangle-mark)
  (setq cua--buffer-and-point-before-command nil)
  (setq cua--mouse-last-pos nil))