[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el

[Kai Großjohann]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.60 emacs/lisp/net/ange-ftp.el:1.61
*** emacs/lisp/net/ange-ftp.el:1.60     Sun Aug 22 17:11:34 2004
--- emacs/lisp/net/ange-ftp.el  Sun Oct 10 19:53:04 2004
***************
*** 4514,4522 ****
               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)
--- 4514,4519 ----
***************
*** 4541,4547 ****
                                                         abbr))))
                 (or (car result)
                     (call-process
!                     ange-ftp-remote-shell
                      nil t nil host dired-chmod-program mode name))))))
       rest))
    (setq ange-ftp-ls-cache-file nil)   ;Stop confusing Dired.
--- 4538,4544 ----
                                                         abbr))))
                 (or (car result)
                     (call-process
!                     remote-shell-program
                      nil t nil host dired-chmod-program mode name))))))
       rest))
    (setq ange-ftp-ls-cache-file nil)   ;Stop confusing Dired.