mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases 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
Show Stats 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)