Mercurial > emacs
changeset 57426:4f0c0062f974
(ange-ftp-remote-shell): Remove variable.
(ange-ftp-call-chmod): Reference remote-shell-program instead of
ange-ftp-remote-shell.
| author | Kai Großjohann <kgrossjo@eu.uu.net> |
|---|---|
| date | Sun, 10 Oct 2004 19:53:24 +0000 |
| parents | 0867872551d9 |
| children | 01934125951e |
| files | lisp/ChangeLog lisp/net/ange-ftp.el |
| diffstat | 2 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Oct 10 16:56:21 2004 +0000 +++ b/lisp/ChangeLog Sun Oct 10 19:53:24 2004 +0000 @@ -1,3 +1,9 @@ +2004-10-10 Kai Grossjohann <kai.grossjohann@gmx.net> + + * 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 <schwab@suse.de> * emacs-lisp/byte-opt.el (byte-optimize-backward-word): Optimize
--- a/lisp/net/ange-ftp.el Sun Oct 10 16:56:21 2004 +0000 +++ b/lisp/net/ange-ftp.el Sun Oct 10 19:53:24 2004 +0000 @@ -4514,9 +4514,6 @@ 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 @@ 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.