/[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.309 by kai, Sun Jun 8 11:53:07 2003 UTC revision 2.310 by kai, Sun Jun 8 12:20:58 2003 UTC
# Line 2564  KEEP-DATE is non-nil if NEWNAME should h Line 2564  KEEP-DATE is non-nil if NEWNAME should h
2564      (save-excursion      (save-excursion
2565        (set-buffer trampbuf) (erase-buffer)        (set-buffer trampbuf) (erase-buffer)
2566        (insert-file-contents-literally filename)        (insert-file-contents-literally filename)
2567        (let ((coding-system-for-write 'no-conversion))        ;; We don't want the target file to be compressed, so we let-bind
2568          ;; `jka-compr-inhibit' to t.
2569          (let ((coding-system-for-write 'no-conversion)
2570                (jka-compr-inhibit t))
2571          (write-region (point-min) (point-max) newname)))          (write-region (point-min) (point-max) newname)))
2572      ;; If the operation was `rename', delete the original file.      ;; If the operation was `rename', delete the original file.
2573      (unless (eq op 'copy)      (unless (eq op 'copy)
# Line 3067  This will break if COMMAND prints a newl Line 3070  This will break if COMMAND prints a newl
3070            (signal 'file-error            (signal 'file-error
3071                    (format "File `%s' not found on remote host" filename))                    (format "File `%s' not found on remote host" filename))
3072            (list (expand-file-name filename) 0))            (list (expand-file-name filename) 0))
3073        (let ((local-copy (file-local-copy filename))        ;; `insert-file-contents-literally' takes care to avoid calling
3074          ;; jka-compr.  By let-binding inhibit-file-name-operation, we
3075          ;; propagate that care to the file-local-copy operation.
3076          (let ((local-copy
3077                 (let ((inhibit-file-name-operation 'file-local-copy))
3078                   (file-local-copy filename)))
3079              (coding-system-used nil)              (coding-system-used nil)
3080              (result nil))              (result nil))
3081          (when visit          (when visit

Legend:
Removed from v.2.309  
changed lines
  Added in v.2.310

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