/[emacs]/emacs/lisp/net/ange-ftp.el
ViewVC logotype

Diff of /emacs/lisp/net/ange-ftp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.50.2.4 by miles, Fri Aug 27 07:00:26 2004 UTC revision 1.50.2.5 by miles, Thu Oct 14 08:49:58 2004 UTC
# Line 4514  NEWNAME should be the name to give the n Line 4514  NEWNAME should be the name to give the n
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)
# Line 4541  NEWNAME should be the name to give the n Line 4538  NEWNAME should be the name to give the n
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.

Legend:
Removed from v.1.50.2.4  
changed lines
  Added in v.1.50.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26