Function: cua-align-rectangle

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

Signature

(cua-align-rectangle)

Documentation

Align rectangle lines to left column.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/cua-rect.el.gz
(defun cua-align-rectangle ()
  "Align rectangle lines to left column."
  (interactive)
  (cua--rectangle-operation 'clear nil t t nil
   (lambda (s _e l _r)
      (let ((b (line-beginning-position)))
	(skip-syntax-backward "^ " b)
	(skip-syntax-backward " " b)
	(setq s (point)))
      (skip-syntax-forward " " (line-end-position))
      (delete-region s (point))
      (indent-to l))
   (lambda (l _r)
      (move-to-column l)
      ;; (setq cua-save-point (point))
      )))