4514 |
1)) |
1)) |
4515 |
(apply 'call-process program nil (not discard) nil arguments))) |
(apply 'call-process program nil (not discard) nil arguments))) |
4516 |
|
|
|
(defvar ange-ftp-remote-shell "rsh" |
|
|
"Remote shell to use for chmod, if FTP server rejects the `chmod' command.") |
|
|
|
|
4517 |
;; Handle an attempt to run chmod on a remote file |
;; Handle an attempt to run chmod on a remote file |
4518 |
;; by using the ftp chmod command. |
;; by using the ftp chmod command. |
4519 |
(defun ange-ftp-call-chmod (args) |
(defun ange-ftp-call-chmod (args) |
4538 |
abbr)))) |
abbr)))) |
4539 |
(or (car result) |
(or (car result) |
4540 |
(call-process |
(call-process |
4541 |
ange-ftp-remote-shell |
remote-shell-program |
4542 |
nil t nil host dired-chmod-program mode name)))))) |
nil t nil host dired-chmod-program mode name)))))) |
4543 |
rest)) |
rest)) |
4544 |
(setq ange-ftp-ls-cache-file nil) ;Stop confusing Dired. |
(setq ange-ftp-ls-cache-file nil) ;Stop confusing Dired. |