(replace-rectangle): Don't call string-rectangle-line

with too many arguments.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e9dffa2040..f5b12c939e6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-22  Gerd Moellmann  <gerd@gnu.org>
+
+        * rect.el (replace-rectangle): Don't call string-rectangle-line
+        with too many arguments.
+
 2000-11-22  Andre Spiegel  <spiegel@gnu.org>
 
         * ediff-util.el: (ediff-file-checked-out-p,
@@ -39,7 +44,7 @@
         * find-lisp.el (find-lisp-find-files-internal):
         Use dolist, when and file-name-as-directory.
 
-        * emacs-lisp/edebug.el (edebug-form-spec prop): use dolist.
+        * emacs-lisp/edebug.el (edebug-form-spec prop): Use dolist.
         (define-derived-mode, define-minor-mode): Add specs.
 
         * window.el: General comment and spacing fixes.
diff --git a/lisp/rect.el b/lisp/rect.el
index a48b0e650ce..1be2c938198 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -344,7 +344,7 @@ This command does not delete or overwrite any existing text."
 (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))
+  (apply-on-rectangle 'string-rectangle-line start end string))
 
 ;;;###autoload
 (defun clear-rectangle (start end &optional fill)