Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

* net/ange-ftp.el (ange-ftp-quote-string): Use

Browse source 
`shell-quote-argument'.  This DTRT even on w32 machines.
(ange-ftp-cf1): Quote FILENAME.
This commit is contained in:
Michael Albinus 2008-02-13 17:28:00 +00:00
parent 02dfeba8a4
commit 1860f08d41
2 changed files with 12 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2008-02-13 Michael Albinus <michael.albinus@gmx.de>
* net/ange-ftp.el (ange-ftp-quote-string): Use
`shell-quote-argument'. This DTRT even on w32 machines.
(ange-ftp-cf1): Quote FILENAME.
2008-02-13 Stefan Monnier <monnier@iro.umontreal.ca>
* smerge-mode.el (smerge-auto-combine-max-separation): New var.

20
lisp/net/ange-ftp.el
View file

@ -1523,19 +1523,11 @@ then kill the related ftp process."
(defun ange-ftp-quote-string (string)
"Quote any characters in STRING that may confuse the ftp process."
(apply 'concat
(mapcar (lambda (char)
;; This is said to be wrong; ftp is said to
;; need quoting only for ", and that by doubling it.
;; But experiment says this kind of quoting is correct
;; when talking to ftp on GNU/Linux systems.
(if (or (<= char ? )
(> char ?\~)
(= char ?\")
(= char ?\\))
(vector ?\\ char)
(vector char)))
string)))
;; This is said to be wrong; ftp is said to need quoting only for ",
;; and that by doubling it. But experiment says UNIX-style kind of
;; quoting is correct when talking to ftp on GNU/Linux systems, and
;; W32-style kind of quoting on, yes, W32 systems.
(when (stringp string) (shell-quote-argument string)))
(defun ange-ftp-barf-if-not-directory (directory)
(or (file-directory-p directory)
@ -3766,7 +3758,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)