# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 952642230 0
# Node ID 99865d22cc31d25de11bebe08b989d6502c76af6
# Parent  30c2ad45d57bdae8a983f7ea643166d7c0a0a679
2000-09-01  Didier Verna  <didier@xemacs.org>

	* rect.el (replace-rectangle): New function.

diff -r 30c2ad45d57b -r 99865d22cc31 lisp/rect.el
--- a/lisp/rect.el	Thu Mar 09 20:28:18 2000 +0000
+++ b/lisp/rect.el	Thu Mar 09 22:50:30 2000 +0000
@@ -343,6 +343,12 @@
   (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.
 The text previously in the region is overwritten with blanks.