Mercurial > emacs

comparison lisp/net/ange-ftp.el @ 40361:8c6df631e62d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-send-cmd): Call fix-name-func for `mdtm'. From "Forrest Cahoon" <forrest.cahoon@merrillcorp.com>.
author Gerd Moellmann <gerd@gnu.org>
date Sat, 27 Oct 2001 07:51:38 +0000
parents b429be6f52ac
children d2e8e0db6666
comparison
equal deleted inserted replaced
40360:04be247dd745 40361:8c6df631e62d
2243 'identity)) 2243 'identity))
2244 (memq cmd0 '(get delete mkdir rmdir cd))) 2244 (memq cmd0 '(get delete mkdir rmdir cd)))
2245 (setq cmd1 (funcall fix-name-func cmd1))) 2245 (setq cmd1 (funcall fix-name-func cmd1)))
2246 2246
2247 ;; Second argument is the remote name 2247 ;; Second argument is the remote name
2248 ((memq cmd0 '(append put chmod)) 2248 ((or (memq cmd0 '(append put chmod))
2249 (and (eq cmd0 'quote) (string= cmd1 "mdtm")))
2249 (setq cmd2 (funcall fix-name-func cmd2))) 2250 (setq cmd2 (funcall fix-name-func cmd2)))
2250
2251 ;; Both arguments are remote names 2251 ;; Both arguments are remote names
2252 ((eq cmd0 'rename) 2252 ((eq cmd0 'rename)
2253 (setq cmd1 (funcall fix-name-func cmd1) 2253 (setq cmd1 (funcall fix-name-func cmd1)
2254 cmd2 (funcall fix-name-func cmd2)))) 2254 cmd2 (funcall fix-name-func cmd2))))
2255 2255