diff options
| author | Kai Großjohann <[email protected]> | 2004-10-10 19:53:24 +0000 |
|---|---|---|
| committer | Kai Großjohann <[email protected]> | 2004-10-10 19:53:24 +0000 |
| commit | 97e810ff4113f1ef57c321c511ee01de10f10ea3 (patch) | |
| tree | 9225e1d01b26211ffe1c8a1aaadc14495674d0cb | |
| parent | c3f4c690b66558c159f98b9ab5d9164c2fa0bfb7 (diff) | |
(ange-ftp-remote-shell): Remove variable.
(ange-ftp-call-chmod): Reference remote-shell-program instead of
ange-ftp-remote-shell.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/net/ange-ftp.el | 5 |
2 files changed, 7 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ccc2a8b63d..267307ed39 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-10-10 Kai Grossjohann <[email protected]> + + * net/ange-ftp.el (ange-ftp-remote-shell): Remove variable. + (ange-ftp-call-chmod): Reference remote-shell-program instead of + ange-ftp-remote-shell. + 2004-10-10 Andreas Schwab <[email protected]> * emacs-lisp/byte-opt.el (byte-optimize-backward-word): Optimize diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index c1f3c0a8d5..16a4826b8a 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4514,9 +4514,6 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") 1)) (apply 'call-process program nil (not discard) nil arguments))) -(defvar ange-ftp-remote-shell "rsh" - "Remote shell to use for chmod, if FTP server rejects the `chmod' command.") - ;; Handle an attempt to run chmod on a remote file ;; by using the ftp chmod command. (defun ange-ftp-call-chmod (args) @@ -4541,7 +4538,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") abbr)))) (or (car result) (call-process - ange-ftp-remote-shell + remote-shell-program nil t nil host dired-chmod-program mode name)))))) rest)) (setq ange-ftp-ls-cache-file nil) ;Stop confusing Dired. |