/[tramp]/tramp/lisp/tramp-ftp.el
ViewVC logotype

Diff of /tramp/lisp/tramp-ftp.el

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

revision 2.5 by albinus, Thu Jan 2 22:21:03 2003 UTC revision 2.6 by albinus, Tue Feb 4 22:37:29 2003 UTC
# Line 1  Line 1 
1  ;;; tramp-ftp.el --- Tramp convenience functions for Ange-FTP and EFS -*- coding: iso-8859-1; -*-  ;;; tramp-ftp.el --- Tramp convenience functions for Ange-FTP and EFS -*- coding: iso-8859-1; -*-
2    
3  ;; Copyright (C) 2002 Free Software Foundation, Inc.  ;; Copyright (C) 2002, 2003 Free Software Foundation, Inc.
4    
5  ;; Author: Michael Albinus <Michael.Albinus@alcatel.de>  ;; Author: Michael Albinus <Michael.Albinus@alcatel.de>
6  ;; Keywords: comm, processes  ;; Keywords: comm, processes
# Line 25  Line 25 
25  ;;; Commentary:  ;;; Commentary:
26    
27  ;; Convenience functions for calling Ange-FTP (and maybe EFS, later on)  ;; Convenience functions for calling Ange-FTP (and maybe EFS, later on)
28  ;; from Tramp. Most of them are displaced from tramp.el  ;; from Tramp.  Most of them are displaced from tramp.el.
29    
30  ;;; Code:  ;;; Code:
31    
# Line 64  present for backward compatibility." Line 64  present for backward compatibility."
64      (setq file-name-handler-alist      (setq file-name-handler-alist
65            (delete a1 (delete a2 file-name-handler-alist)))))            (delete a1 (delete a2 file-name-handler-alist)))))
66  (tramp-disable-ange-ftp)  (tramp-disable-ange-ftp)
67    (eval-after-load "ange-ftp" '(tramp-disable-ange-ftp))
68    
69  ;; Define FTP method ...  ;; Define FTP method ...
70  (defcustom tramp-ftp-method "ftp"  (defcustom tramp-ftp-method "ftp"
# Line 92  First arg specifies the OPERATION, secon Line 93  First arg specifies the OPERATION, secon
93  pass to the OPERATION."  pass to the OPERATION."
94    (save-match-data    (save-match-data
95      (or (boundp 'ange-ftp-name-format)      (or (boundp 'ange-ftp-name-format)
96          (and (require 'ange-ftp)          (require 'ange-ftp))
              (tramp-disable-ange-ftp)))  
97      (let* ((ange-ftp-name-format      (let* ((ange-ftp-name-format
98              (list (nth 0 tramp-file-name-structure)              (list (nth 0 tramp-file-name-structure)
99                    (nth 3 tramp-file-name-structure)                    (nth 3 tramp-file-name-structure)

Legend:
Removed from v.2.5  
changed lines
  Added in v.2.6

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