diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2008-02-13 17:20:11 +0000 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2008-02-13 17:20:11 +0000 |
commit | de95cc30ec71235a682f16b7356569620fe947b9 (patch) | |
tree | 58abf702bd40a5393451cd7c689fde5c8d804fd9 /lisp | |
parent | 4c9702c3e88137e8e0b51964b4ab5f8de5ff0814 (diff) | |
download | emacs-de95cc30ec71235a682f16b7356569620fe947b9.tar.gz |
* net/ange-ftp.el (ange-ftp-cf1): Quote FILENAME.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/net/ange-ftp.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dc940e64ab9..87141d02ed2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-02-13 Michael Albinus <michael.albinus@gmx.de> + + * net/ange-ftp.el (ange-ftp-cf1): Quote FILENAME. + 2008-02-12 Juri Linkov <juri@jurta.org> * startup.el (fancy-startup-screen, normal-splash-screen): diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index d53f740296a..d4816dbe1c8 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -3766,7 +3766,7 @@ Value is (0 0) if the modification time cannot be determined." (ange-ftp-send-cmd t-host t-user - (list 'put (or temp2 filename) t-name) + (list 'put (or temp2 (ange-ftp-quote-string filename)) t-name) (or msg (if (and temp2 f-parsed) (format "Putting %s" newname) |