From ccb629e40b00d6d5ec2bc4e78318d611cc56353a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 3 May 1993 15:01:18 +0000 Subject: (string-rectangle): Renamed from fill-rectangle. (string-rectangle-line): Renamed from fill-rectangle-line. --- lisp/rect.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'lisp/rect.el') diff --git a/lisp/rect.el b/lisp/rect.el index 7e80734a19c..ce29111f2e1 100644 --- a/lisp/rect.el +++ b/lisp/rect.el @@ -192,17 +192,17 @@ but instead winds up to the right of the rectangle." (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 @@ TEXT." ;; characters before STARTPOS undisturbed. (progn (skip-chars-backward " \t" startpos) (point))) - (insert text))) + (insert string))) ;;;###autoload (defun clear-rectangle (start end) -- cgit v1.2.3