Mercurial > hg > xemacs-beta

comparison lisp/efs/efs.el @ 199:169c0442b401 r20-3b26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b26
author cvs
date Mon, 13 Aug 2007 10:00:33 +0200
parents 6608ceec7cf8
children
comparison
equal deleted inserted replaced
198:a94d4839ade3 199:169c0442b401
900 ;;; 900 ;;;
901 ;;; LCD Archive Entry: 901 ;;; LCD Archive Entry:
902 ;;; efs|Andy Norman and Sandy Rutherford 902 ;;; efs|Andy Norman and Sandy Rutherford
903 ;;; |ange@hplb.hpl.hp.com and sandy@ibm550.sissa.it 903 ;;; |ange@hplb.hpl.hp.com and sandy@ibm550.sissa.it
904 ;;; |transparent FTP Support for GNU Emacs 904 ;;; |transparent FTP Support for GNU Emacs
905 ;;; |$Date: 1997/04/27 19:30:06 $|$efs release: 1.15 beta $| 905 ;;; |$Date: 1997/10/03 00:11:00 $|$efs release: 1.15 beta $|
906 906
907 ;;; Host and listing type notation: 907 ;;; Host and listing type notation:
908 ;;; 908 ;;;
909 ;;; The functions efs-host-type and efs-listing-type, and the 909 ;;; The functions efs-host-type and efs-listing-type, and the
910 ;;; variable efs-dired-host-type follow the following conventions 910 ;;; variable efs-dired-host-type follow the following conventions
8170 nil nil 8170 nil nil
8171 (efs-cont (result line cont-lines) (host file r-file omode) 8171 (efs-cont (result line cont-lines) (host file r-file omode)
8172 (if result 8172 (if result
8173 (let ((exit-code 8173 (let ((exit-code
8174 (efs-shell-call-process 8174 (efs-shell-call-process
8175 (concat "chmod " mode " " (file-name-nondirectory file)) 8175 (concat "chmod " omode " " (file-name-nondirectory file))
8176 (file-name-directory file)))) 8176 (file-name-directory file))))
8177 (if (not (equal 0 exit-code)) 8177 (if (not (equal 0 exit-code))
8178 (progn 8178 (progn
8179 (efs-set-host-property host 'chmod-failed t) 8179 (efs-set-host-property host 'chmod-failed t)
8180 (message "CHMOD %s failed for %s on %s." omode r-file host) 8180 (message "CHMOD %s failed for %s on %s." omode r-file host)