From: Gerd Moellmann Date: Wed, 22 Nov 2000 15:06:10 +0000 (+0000) Subject: (replace-rectangle): Don't call string-rectangle-line X-Git-Tag: emacs-pretest-21.0.92~178 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=980d836ef46b254e6dda8e9e87604af200bd5872;p=emacs.git (replace-rectangle): Don't call string-rectangle-line with too many arguments. --- 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 + + * rect.el (replace-rectangle): Don't call string-rectangle-line + with too many arguments. + 2000-11-22 Andre Spiegel * 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)