Function: clear-rectangle-line

clear-rectangle-line is a byte-compiled function defined in rect.el.gz.

Signature

(clear-rectangle-line STARTCOL ENDCOL FILL)

Source Code

;; Defined in /usr/src/emacs/lisp/rect.el.gz
(defun clear-rectangle-line (startcol endcol fill)
  (let ((pt (line-end-position)))
    (when (= (move-to-column startcol (if fill t 'coerce)) startcol)
      (if (and (not fill)
	       (<= (save-excursion (goto-char pt) (current-column)) endcol))
	  (delete-region (point) pt)
	;; else
	(setq pt (point))
	(move-to-column endcol t)
	(setq endcol (current-column))
	(delete-region pt (point))
	(indent-to endcol)))))