diff options
| author | Gerd Moellmann | 2000-01-28 17:29:47 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-01-28 17:29:47 +0000 |
| commit | 850e3ba089fd970aa90d679d9458e65d11b9b716 (patch) | |
| tree | 5bb18bf63943cb440a038bf11e7cab6e7fc694a5 | |
| parent | 74fd23805e05c0a10eadd8863f10daf6248c1a1b (diff) | |
| download | emacs-850e3ba089fd970aa90d679d9458e65d11b9b716.tar.gz emacs-850e3ba089fd970aa90d679d9458e65d11b9b716.zip | |
(ange-ftp-copy-file-internal): Quote new name
for the case it contains spaces.
| -rw-r--r-- | lisp/ange-ftp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index d9af92f83ea..6c822d4604a 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el | |||
| @@ -3501,7 +3501,7 @@ system TYPE.") | |||
| 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) |