Mercurial > emacs
comparison lisp/ange-ftp.el @ 27478:00282ceafbca
(ange-ftp-copy-file-internal): Quote new name
for the case it contains spaces.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 28 Jan 2000 17:29:47 +0000 |
| parents | d2027e4f6c93 |
| children | 65b514b0ab72 |
comparison
equal
deleted
inserted
replaced
| 27477:8a7e3bcab064 | 27478:00282ceafbca |
|---|---|
| 3499 (ange-ftp-set-binary-mode f-host f-user)) | 3499 (ange-ftp-set-binary-mode f-host f-user)) |
| 3500 | 3500 |
| 3501 (ange-ftp-send-cmd | 3501 (ange-ftp-send-cmd |
| 3502 f-host | 3502 f-host |
| 3503 f-user | 3503 f-user |
| 3504 (list 'get f-name (or temp1 newname)) | 3504 (list 'get f-name (or temp1 (ange-ftp-quote-string newname))) |
| 3505 (or msg | 3505 (or msg |
| 3506 (if (and temp1 t-parsed) | 3506 (if (and temp1 t-parsed) |
| 3507 (format "Getting %s" f-abbr) | 3507 (format "Getting %s" f-abbr) |
| 3508 (format "Copying %s to %s" f-abbr t-abbr))) | 3508 (format "Copying %s to %s" f-abbr t-abbr))) |
| 3509 (list (function ange-ftp-cf1) | 3509 (list (function ange-ftp-cf1) |