Function: delete-extract-rectangle-line

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

Signature

(delete-extract-rectangle-line STARTCOL ENDCOL LINES FILL)

Source Code

;; Defined in /usr/src/emacs/lisp/rect.el.gz
(defun delete-extract-rectangle-line (startcol endcol lines fill)
  (let ((pt (line-end-position)))
    (if (< (move-to-column startcol (if fill t 'coerce)) startcol)
	(setcdr lines (cons (spaces-string (- endcol startcol))
			    (cdr lines)))
      ;; else
      (setq pt (point))
      (move-to-column endcol t)
      (setcdr lines (cons (filter-buffer-substring pt (point) t) (cdr lines))))
    ))