Commit 31b55e80 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

When REPLACE, delete the proper range of text.
parent 201bc1bd
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment