Mercurial > emacs
changeset 51284:55a88703765d
(jka-compr-insert-file-contents):
When REPLACE, delete the proper range of text.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 28 May 2003 11:21:36 +0000 |
| parents | 956ab3f2a864 |
| children | 2363196f1b1c |
| files | lisp/jka-compr.el |
| diffstat | 1 files changed, 1 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/jka-compr.el Wed May 28 11:20:42 2003 +0000 +++ b/lisp/jka-compr.el Wed May 28 11:21:36 2003 +0000 @@ -573,10 +573,7 @@ uncompress-args))) (setq size (- (point) start)) (if replace - (let* ((del-beg (point)) - (del-end (+ del-beg size))) - (delete-region del-beg - (min del-end (point-max))))) + (delete-region (point) (point-max))) (goto-char start)) (error (if (and (eq (car error-code) 'file-error)