Mercurial > emacs
comparison lisp/ange-ftp.el @ 23246:3741d2ab743a
(ange-ftp-insert-file-contents):
Use binary mode for dumb-unix hosts as for unix hosts.
(ange-ftp-copy-file-internal): Likewise.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sun, 13 Sep 1998 03:42:11 +0000 |
| parents | 01c23b1e1c32 |
| children | 7fb0a3c74e1d |
comparison
equal
deleted
inserted
replaced
| 23245:5e7aa3a0e2ad | 23246:3741d2ab743a |
|---|---|
| 3218 (let* ((host (nth 0 parsed)) | 3218 (let* ((host (nth 0 parsed)) |
| 3219 (user (nth 1 parsed)) | 3219 (user (nth 1 parsed)) |
| 3220 (name (ange-ftp-quote-string (nth 2 parsed))) | 3220 (name (ange-ftp-quote-string (nth 2 parsed))) |
| 3221 (temp (ange-ftp-make-tmp-name host)) | 3221 (temp (ange-ftp-make-tmp-name host)) |
| 3222 (binary (or (ange-ftp-binary-file filename) | 3222 (binary (or (ange-ftp-binary-file filename) |
| 3223 (eq (ange-ftp-host-type host user) 'unix))) | 3223 (memq (ange-ftp-host-type host user) |
| 3224 '(unix dumb-unix)))) | |
| 3224 (abbr (ange-ftp-abbreviate-filename filename)) | 3225 (abbr (ange-ftp-abbreviate-filename filename)) |
| 3225 size) | 3226 size) |
| 3226 (unwind-protect | 3227 (unwind-protect |
| 3227 (progn | 3228 (progn |
| 3228 (if binary | 3229 (if binary |
| 3503 (t-user (and t-parsed (nth 1 t-parsed))) | 3504 (t-user (and t-parsed (nth 1 t-parsed))) |
| 3504 (t-name (and t-parsed (ange-ftp-quote-string (nth 2 t-parsed)))) | 3505 (t-name (and t-parsed (ange-ftp-quote-string (nth 2 t-parsed)))) |
| 3505 (t-abbr (ange-ftp-abbreviate-filename newname filename)) | 3506 (t-abbr (ange-ftp-abbreviate-filename newname filename)) |
| 3506 (binary (or (ange-ftp-binary-file filename) | 3507 (binary (or (ange-ftp-binary-file filename) |
| 3507 (ange-ftp-binary-file newname) | 3508 (ange-ftp-binary-file newname) |
| 3508 (and (eq (ange-ftp-host-type f-host f-user) 'unix) | 3509 (and (memq (ange-ftp-host-type f-host f-user) |
| 3509 (eq (ange-ftp-host-type t-host t-user) 'unix)))) | 3510 '(unix dumb-unix)) |
| 3511 (memq (ange-ftp-host-type t-host t-user) | |
| 3512 '(unix dumb-unix))))) | |
| 3510 temp1 | 3513 temp1 |
| 3511 temp2) | 3514 temp2) |
| 3512 | 3515 |
| 3513 ;; check to see if we can overwrite | 3516 ;; check to see if we can overwrite |
| 3514 (if (or (not ok-if-already-exists) | 3517 (if (or (not ok-if-already-exists) |