Skip to content

GitLab

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
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 4 deletions
lisp/jka-compr.el
View file @ 31b55e80
...@@ -573,10 +573,7 @@ There should be no more than seven characters after the final `/'." ...@@ -573,10 +573,7 @@ There should be no more than seven characters after the final `/'."
uncompress-args))) uncompress-args)))
(setq size (- (point) start)) (setq size (- (point) start))
(if replace (if replace
(let* ((del-beg (point)) (delete-region (point) (point-max)))
(del-end (+ del-beg size)))
(delete-region del-beg
(min del-end (point-max)))))
(goto-char start)) (goto-char start))
(error (error
(if (and (eq (car error-code) 'file-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