From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 6 Jun 1998 17:52:43 +0000 (+0000)
Subject: (string-rectangle-line): Delete the rectangle first.
X-Git-Tag: emacs-20.3~709
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb148b90e292a4793c94aa268bbd1adb840cb0c4;p=emacs.git

(string-rectangle-line): Delete the rectangle first.
(string-rectangle): Doc fix.
---

diff --git a/lisp/rect.el b/lisp/rect.el
index 895c3ae0078..c9b8d2d659d 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -227,9 +227,8 @@ rectangle, all continuous whitespace starting at that column is deleted."
 
 ;;;###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 @@ Called from a program, takes three args; START, END and STRING."
 
 (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")