/[tramp]/tramp/lisp/tramp.el
ViewVC logotype

Diff of /tramp/lisp/tramp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.313 by kai, Thu Jun 12 10:30:05 2003 UTC revision 2.314 by kai, Thu Jun 12 10:32:33 2003 UTC
# Line 2570  KEEP-DATE is non-nil if NEWNAME should h Line 2570  KEEP-DATE is non-nil if NEWNAME should h
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.
# Line 3043  This will break if COMMAND prints a newl Line 3043  This will break if COMMAND prints a newl
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))

Legend:
Removed from v.2.313  
changed lines
  Added in v.2.314

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26