4116 |
(format "Getting %s" fn1)) |
(format "Getting %s" fn1)) |
4117 |
tmp1)))) |
tmp1)))) |
4118 |
|
|
4119 |
|
(defun ange-ftp-file-remote-p (file) |
4120 |
|
(when (ange-ftp-ftp-name file) t)) |
4121 |
|
|
4122 |
(defun ange-ftp-load (file &optional noerror nomessage nosuffix) |
(defun ange-ftp-load (file &optional noerror nomessage nosuffix) |
4123 |
(if (ange-ftp-ftp-name file) |
(if (ange-ftp-ftp-name file) |
4124 |
(let ((tryfiles (if nosuffix |
(let ((tryfiles (if nosuffix |
4260 |
(let ((fn (get operation 'ange-ftp))) |
(let ((fn (get operation 'ange-ftp))) |
4261 |
(if fn (save-match-data (apply fn args)) |
(if fn (save-match-data (apply fn args)) |
4262 |
(ange-ftp-run-real-handler operation args)))) |
(ange-ftp-run-real-handler operation args)))) |
|
;;;###autoload |
|
|
;;; These file names are remote file names. |
|
|
(put 'ange-ftp-hook-function 'file-remote-p t) |
|
4263 |
|
|
4264 |
;; The following code is commented out because Tramp now deals with |
;; The following code is commented out because Tramp now deals with |
4265 |
;; Ange-FTP filenames, too. |
;; Ange-FTP filenames, too. |
4327 |
(put 'file-name-completion 'ange-ftp 'ange-ftp-file-name-completion) |
(put 'file-name-completion 'ange-ftp 'ange-ftp-file-name-completion) |
4328 |
(put 'insert-directory 'ange-ftp 'ange-ftp-insert-directory) |
(put 'insert-directory 'ange-ftp 'ange-ftp-insert-directory) |
4329 |
(put 'file-local-copy 'ange-ftp 'ange-ftp-file-local-copy) |
(put 'file-local-copy 'ange-ftp 'ange-ftp-file-local-copy) |
4330 |
|
(put 'file-remote-p 'ange-ftp 'ange-ftp-file-remote-p) |
4331 |
(put 'unhandled-file-name-directory 'ange-ftp |
(put 'unhandled-file-name-directory 'ange-ftp |
4332 |
'ange-ftp-unhandled-file-name-directory) |
'ange-ftp-unhandled-file-name-directory) |
4333 |
(put 'file-name-sans-versions 'ange-ftp 'ange-ftp-file-name-sans-versions) |
(put 'file-name-sans-versions 'ange-ftp 'ange-ftp-file-name-sans-versions) |