From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 28 May 2003 11:21:36 +0000 (+0000)
Subject: (jka-compr-insert-file-contents):
X-Git-Tag: ttn-vms-21-2-B4~9900
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=31b55e801d203be3366ba84627048c3ae664ad27;p=emacs.git

(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 7a51e961ed0..3d14089349f 100644
--- 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)