74 |
;; ... and add it to the method list. |
;; ... and add it to the method list. |
75 |
(add-to-list 'tramp-methods (cons tramp-ftp-method nil)) |
(add-to-list 'tramp-methods (cons tramp-ftp-method nil)) |
76 |
|
|
77 |
|
;; Add some defaults for `tramp-default-method-alist' |
78 |
|
(add-to-list 'tramp-default-method-alist |
79 |
|
'("\\`ftp\\." "" tramp-ftp-method)) |
80 |
|
(add-to-list 'tramp-default-method-alist |
81 |
|
'("" "\\`\\(anonymous\\|ftp\\)\\'" tramp-ftp-method)) |
82 |
|
|
83 |
;; Add completion function for FTP method. |
;; Add completion function for FTP method. |
84 |
(unless (memq system-type '(windows-nt)) |
(unless (memq system-type '(windows-nt)) |
85 |
(tramp-set-completion-function |
(tramp-set-completion-function |