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 |
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 |
|
|
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" |
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) |