From 980d836ef46b254e6dda8e9e87604af200bd5872 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 22 Nov 2000 15:06:10 +0000 Subject: [PATCH] (replace-rectangle): Don't call string-rectangle-line with too many arguments. --- lisp/ChangeLog | 7 ++++++- lisp/rect.el | 2 +- 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 + + * 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) -- 2.39.2