mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
When REPLACE, delete the proper range of text.
This commit is contained in:
Richard M. Stallman 2003-05-28 11:21:36 +00:00
parent 201bc1bdf6
commit 31b55e801d
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/jka-compr.el
View file

@ -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)