Mercurial > emacs
diff lisp/rect.el @ 22369:6c4756ecd4a2
(string-rectangle-line): Delete the rectangle first.
(string-rectangle): Doc fix.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 06 Jun 1998 17:52:43 +0000 |
parents | 84c3c863f0bd |
children | b13886e06eb2 |
line wrap: on
line diff
--- a/lisp/rect.el Fri Jun 05 22:54:28 1998 +0000 +++ b/lisp/rect.el Sat Jun 06 17:52:43 1998 +0000 @@ -227,9 +227,8 @@ ;;;###autoload (defun string-rectangle (start end string) - "Insert STRING on each line of the region-rectangle, shifting text right. -The left edge of the rectangle specifies the column for insertion. -This command does not delete or overwrite any existing text. + "Replace rectangle contents with STRING on each line. +The length of STRING need not be the same as the rectangle width. Called from a program, takes three args; START, END and STRING." (interactive "r\nsString rectangle: ") @@ -238,7 +237,8 @@ (defun string-rectangle-line (startpos begextra endextra) (let (whitespace) - (goto-char startpos) + ;; Delete the width of the rectangle. + (delete-region startpos (point)) ;; Compute horizontal width of following whitespace. (let ((ocol (current-column))) (skip-chars-forward " \t")