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

with too many arguments.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e9dffa20401fd5fbdf25817319df4db9b57e4f4..f5b12c939e6ce1374500067d60b20da43495b872 100644 (file)
--- 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 a48b0e650ce4a74ec1302ce2b1421771b8c4fd06..1be2c938198e6992da7ee39e21b4bd688fb794f6 100644 (file)
--- 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)