Mercurial > emacs

comparison lisp/net/tramp-ftp.el @ 105402:6a210fc81bde

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** 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)))