mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

(ange-ftp-remote-shell): Remove variable.

Browse Source 
(ange-ftp-call-chmod): Reference remote-shell-program instead of
ange-ftp-remote-shell.
This commit is contained in:
Kai Großjohann 2004-10-10 19:53:24 +00:00
parent c3f4c690b6
commit 97e810ff41
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

5
lisp/net/ange-ftp.el
View File

@ -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.