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

(string-rectangle): Doc fix.

diff --git a/lisp/rect.el b/lisp/rect.el
index 895c3ae0078b9bb5e6dae75c8a2f16c88bbade5c..c9b8d2d659d3c396e4177f4d72647182dff2e78e 100644 (file)
--- 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")