(apply-on-rectangle 'string-rectangle-line start end string
(and (boundp 'pending-delete-mode) pending-delete-mode)))
+;;;###autoload
(defun replace-rectangle (start end string)
"Like `string-rectangle', but unconditionally replace the original region,
as if `pending-delete-mode' were active."