Mercurial > emacs
changeset 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 | c3a15ab5924f |
| children | 1f0dc0251be3 |
| files | lisp/rect.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
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")