Function: cua-blank-rectangle
cua-blank-rectangle is an interactive and byte-compiled function
defined in cua-rect.el.gz.
Signature
(cua-blank-rectangle)
Documentation
Blank out CUA rectangle.
The text previously in the rectangle is overwritten by the blanks.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/emulation/cua-rect.el.gz
(defun cua-blank-rectangle ()
"Blank out CUA rectangle.
The text previously in the rectangle is overwritten by the blanks."
(interactive)
(cua--rectangle-operation 'keep nil nil 1 nil
(lambda (s e _l _r)
(goto-char e)
(skip-syntax-forward " " (line-end-position))
(setq e (point))
(let ((column (current-column)))
(goto-char s)
(skip-syntax-backward " " (line-beginning-position))
(delete-region (point) e)
(indent-to column)))))