Commit 852eeeaf authored by Dave Love's avatar Dave Love
Browse files

2000-09-01 Didier Verna <didier@xemacs.org>

	* rect.el (replace-rectangle): New function.
parent d1221ea9
......@@ -342,6 +342,12 @@ This command does not delete or overwrite any existing text."
(move-to-column-force startcol)
(insert string))
;;;###autoload
(defun replace-rectangle (start end string)
"Like `string-rectangle', but replace the original region."
(interactive "*r\nsString rectangle: ")
(apply-on-rectangle 'string-rectangle-line start end string t))
;;;###autoload
(defun clear-rectangle (start end &optional fill)
"Blank out the region-rectangle.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment