Mercurial > emacs
comparison lisp/net/tramp-ftp.el @ 105402:6a210fc81bde
*** empty log message ***
author | Michael Albinus <michael.albinus@gmx.de> |
---|---|
date | Sat, 03 Oct 2009 12:35:55 +0000 |
parents | a9dc0e7c3f2b |
children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
105401:791bb3c2ca7d | 105402:6a210fc81bde |
---|---|
132 "Invoke the Ange-FTP handler for OPERATION. | 132 "Invoke the Ange-FTP handler for OPERATION. |
133 First arg specifies the OPERATION, second arg is a list of arguments to | 133 First arg specifies the OPERATION, second arg is a list of arguments to |
134 pass to the OPERATION." | 134 pass to the OPERATION." |
135 (save-match-data | 135 (save-match-data |
136 (or (boundp 'ange-ftp-name-format) | 136 (or (boundp 'ange-ftp-name-format) |
137 (require 'ange-ftp)) | 137 (let (file-name-handler-alist) (require 'ange-ftp))) |
138 (let ((ange-ftp-name-format | 138 (let ((ange-ftp-name-format |
139 (list (nth 0 tramp-file-name-structure) | 139 (list (nth 0 tramp-file-name-structure) |
140 (nth 3 tramp-file-name-structure) | 140 (nth 3 tramp-file-name-structure) |
141 (nth 2 tramp-file-name-structure) | 141 (nth 2 tramp-file-name-structure) |
142 (nth 4 tramp-file-name-structure))) | 142 (nth 4 tramp-file-name-structure))) |