Mercurial > hg > xemacs-beta

comparison lisp/efs/efs.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 0d2f883870bc
children 8619ce7e4c50
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs.el 4 ;; File: efs.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.2 $ 6 ;; Version: $Revision: 1.3 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: Transparent FTP support for the original GNU Emacs 8 ;; Description: Transparent FTP support for the original GNU Emacs
9 ;; from FSF and Lucid Emacs 9 ;; from FSF and Lucid Emacs
10 ;; Authors: Andy Norman <ange@hplb.hpl.hp.com>, 10 ;; Authors: Andy Norman <ange@hplb.hpl.hp.com>,
11 ;; Sandy Rutherford <sandy@ibm550.sissa.it> 11 ;; Sandy Rutherford <sandy@ibm550.sissa.it>
95 ;;; To use efs, simply put the byte compiled files in your load path 95 ;;; To use efs, simply put the byte compiled files in your load path
96 ;;; and add 96 ;;; and add
97 ;;; 97 ;;;
98 ;;; (require 'efs) 98 ;;; (require 'efs)
99 ;;; 99 ;;;
100 ;;; in your .emacs file. 100 ;;; in your .emacs file. Note this takes awhile, and some users have
101 ;;; found this to be unbearably slow. Therefore ...
101 ;;; 102 ;;;
102 ;;; If you would like efs to be autoloaded when you attempt to access 103 ;;; If you would like efs to be autoloaded when you attempt to access
103 ;;; a remote file, put 104 ;;; a remote file, put
104 ;;; 105 ;;;
105 ;;; (require 'efs-auto) 106 ;;; (require 'efs-auto)
903 ;;; 904 ;;;
904 ;;; LCD Archive Entry: 905 ;;; LCD Archive Entry:
905 ;;; efs|Andy Norman and Sandy Rutherford 906 ;;; efs|Andy Norman and Sandy Rutherford
906 ;;; |ange@hplb.hpl.hp.com and sandy@ibm550.sissa.it 907 ;;; |ange@hplb.hpl.hp.com and sandy@ibm550.sissa.it
907 ;;; |transparent FTP Support for GNU Emacs 908 ;;; |transparent FTP Support for GNU Emacs
908 ;;; |$Date: 1997/02/15 22:20:36 $|$efs release: 1.15 beta $| 909 ;;; |$Date: 1997/02/24 01:13:11 $|$efs release: 1.15 beta $|
909 910
910 ;;; Host and listing type notation: 911 ;;; Host and listing type notation:
911 ;;; 912 ;;;
912 ;;; The functions efs-host-type and efs-listing-type, and the 913 ;;; The functions efs-host-type and efs-listing-type, and the
913 ;;; variable efs-dired-host-type follow the following conventions 914 ;;; variable efs-dired-host-type follow the following conventions
1050 ;;;; ------------------------------------------------------------ 1051 ;;;; ------------------------------------------------------------
1051 1052
1052 (defconst efs-version 1053 (defconst efs-version
1053 (concat (substring "$efs release: 1.15 $" 14 -2) 1054 (concat (substring "$efs release: 1.15 $" 14 -2)
1054 "/" 1055 "/"
1055 (substring "$Revision: 1.2 $" 11 -2))) 1056 (substring "$Revision: 1.3 $" 11 -2)))
1056 1057
1057 (defconst efs-time-zero 1970) ; we count time from midnight, Jan 1, 1970 GMT. 1058 (defconst efs-time-zero 1970) ; we count time from midnight, Jan 1, 1970 GMT.
1058 1059
1059 (defconst efs-dumb-host-types 1060 (defconst efs-dumb-host-types
1060 '(dumb-unix super-dumb-unix vms cms mts ti-twenex ti-explorer dos mvs 1061 '(dumb-unix super-dumb-unix vms cms mts ti-twenex ti-explorer dos mvs
7436 (let ((temp (concat 7437 (let ((temp (concat
7437 (car (efs-make-tmp-name nil host)) 7438 (car (efs-make-tmp-name nil host))
7438 (efs-internal-file-name-extension filename))) 7439 (efs-internal-file-name-extension filename)))
7439 (type (efs-xfer-type host-type filename nil nil)) 7440 (type (efs-xfer-type host-type filename nil nil))
7440 (abbr (efs-relativize-filename filename)) 7441 (abbr (efs-relativize-filename filename))
7441 (temp (concat (car (efs-make-tmp-name nil host))
7442 (or (substring abbr (string-match "\\." abbr)) "")))
7443 (i-f-c-size 0)) 7442 (i-f-c-size 0))
7444 7443
7445 (unwind-protect 7444 (unwind-protect
7446 (efs-copy-file-internal 7445 (efs-copy-file-internal
7447 filename parsed temp nil t nil 7446 filename parsed temp nil t nil