changeset 2637:45ecb9b4a6da

(string-rectangle): Renamed from fill-rectangle. (string-rectangle-line): Renamed from fill-rectangle-line.

--- a/lisp/rect.el	Mon May 03 04:05:33 1993 +0000
+++ b/lisp/rect.el	Mon May 03 15:01:18 1993 +0000
@@ -192,17 +192,17 @@
     (indent-to column)))
 
 ;;;###autoload
-(defun fill-rectangle (start end text)
-  "Fill each line of the rectangle with corners at point and mark with
-text, shifting text right.  The text previously in the region is not
-overwritten by the blanks, but instead winds up to the right of the
-rectangle.  Called from a program, takes three args; START, END and
-TEXT."
-  (interactive "r\nsText:")
-  (operate-on-rectangle 'fill-rectangle-line start end nil)
+(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.
+
+Called from a program, takes three args; START, END and STRING."
+  (interactive "r\nsString rectangle: ")
+  (operate-on-rectangle 'string-rectangle-line start end nil)
   (goto-char start))
 
-(defun fill-rectangle-line (startpos begextra endextra)
+(defun string-rectangle-line (startpos begextra endextra)
   (let ((column (+ (current-column) begextra endextra)))
     (goto-char startpos)
     (let ((ocol (current-column)))
@@ -213,7 +213,7 @@
 		   ;; characters before STARTPOS undisturbed.
                    (progn (skip-chars-backward " \t" startpos)
 			  (point)))
-    (insert text)))
+    (insert string)))
 
 ;;;###autoload
 (defun clear-rectangle (start end)