573 |
uncompress-args))) |
uncompress-args))) |
574 |
(setq size (- (point) start)) |
(setq size (- (point) start)) |
575 |
(if replace |
(if replace |
576 |
(let* ((del-beg (point)) |
(delete-region (point) (point-max))) |
|
(del-end (+ del-beg size))) |
|
|
(delete-region del-beg |
|
|
(min del-end (point-max))))) |
|
577 |
(goto-char start)) |
(goto-char start)) |
578 |
(error |
(error |
579 |
(if (and (eq (car error-code) 'file-error) |
(if (and (eq (car error-code) 'file-error) |
940 |
|
|
941 |
(provide 'jka-compr) |
(provide 'jka-compr) |
942 |
|
|
943 |
|
;;; arch-tag: 3f15b630-e9a7-46c4-a22a-94afdde86ebc |
944 |
;;; jka-compr.el ends here |
;;; jka-compr.el ends here |