From: Dave Love <fx@gnu.org>
Date: Thu, 9 Mar 2000 22:50:30 +0000 (+0000)
Subject: 2000-09-01  Didier Verna  <didier@xemacs.org>
X-Git-Tag: emacs-pretest-21.0.90~4701
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=852eeeafd2e84ea9badb85529de2bacda63ae99e;p=emacs.git

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

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

diff --git a/lisp/rect.el b/lisp/rect.el
index 4e412befa46..97fa980d1a6 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -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.