(jka-compr-insert-file-contents):

When REPLACE, delete the proper range of text.

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 7a51e961ed0f3aa8d1126733cccb2a6482eaa743..3d14089349fc0a77943870ce82992ff5e314f0a8 100644 (file)
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -573,10 +573,7 @@ There should be no more than seven characters after the final `/'."
                                                  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)