Function: cua-open-rectangle

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

Signature

(cua-open-rectangle)

Documentation

Blank out CUA rectangle, shifting text right.

The text previously in the region is not overwritten by the blanks, but instead winds up to the right of the rectangle.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/cua-rect.el.gz
(defun cua-open-rectangle ()
  "Blank out CUA rectangle, shifting text right.
The text previously in the region is not overwritten by the blanks,
but instead winds up to the right of the rectangle."
  (interactive)
  (cua--rectangle-operation 'corners nil t 1 nil
   (lambda (_s _e l r)
      (skip-chars-forward " \t")
      (let ((ws (- (current-column) l))
            (p (point)))
        (skip-chars-backward " \t")
        (delete-region (point) p)
        (indent-to (+ r ws))))))