2570 |
(insert-file-contents-literally filename) |
(insert-file-contents-literally filename) |
2571 |
;; We don't want the target file to be compressed, so we let-bind |
;; We don't want the target file to be compressed, so we let-bind |
2572 |
;; `jka-compr-inhibit' to t. |
;; `jka-compr-inhibit' to t. |
2573 |
(let ((coding-system-for-write 'no-conversion) |
(let ((coding-system-for-write 'binary) |
2574 |
(jka-compr-inhibit t)) |
(jka-compr-inhibit t)) |
2575 |
(write-region (point-min) (point-max) newname))) |
(write-region (point-min) (point-max) newname))) |
2576 |
;; If the operation was `rename', delete the original file. |
;; If the operation was `rename', delete the original file. |
3043 |
;; line from the output here. Go to point-max, |
;; line from the output here. Go to point-max, |
3044 |
;; search backward for tramp_exit_status, delete |
;; search backward for tramp_exit_status, delete |
3045 |
;; between point and point-max if found. |
;; between point and point-max if found. |
3046 |
(let ((coding-system-for-write 'no-conversion)) |
(let ((coding-system-for-write 'binary)) |
3047 |
(funcall loc-dec (point-min) (point-max)) |
(funcall loc-dec (point-min) (point-max)) |
3048 |
(write-region (point-min) (point-max) tmpfil)) |
(write-region (point-min) (point-max) tmpfil)) |
3049 |
(kill-buffer tmpbuf)) |
(kill-buffer tmpbuf)) |