;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'tramp)
#@372 Turn Ange-FTP off.
This is useful for unified remoting.  See
`tramp-file-name-structure' for details.  Requests suitable for
Ange-FTP will be forwarded to Ange-FTP.  Also see the variables
`tramp-ftp-method', `tramp-default-method', and
`tramp-default-method-alist'.

This function is not needed in Emacsen which include Tramp, but is
present for backward compatibility.
(defalias 'tramp-disable-ange-ftp #[0 "\301\302\"\301\303\"\304\304\"\"\211\207" [file-name-handler-alist rassq ange-ftp-hook-function ange-ftp-completion-hook-function delete] 7 (#$ . 102)])
(eval-after-load 'ange-ftp #[0 "\300 \207" [tramp-disable-ange-ftp] 1])
#@44 Reenable Ange-FTP, when Tramp is unloaded.
(defalias 'tramp-ftp-enable-ange-ftp #[0 "\302\303\"\204\304B\302\305\"\204\306B	\307>\205(\302\310\"\206(\311B\211\207" [file-name-handler-alist system-type assoc "^/[^/:]*[^/:.]:" ("^/[^/:]*[^/:.]:" . ange-ftp-hook-function) "^/[^/:]*\\'" ("^/[^/:]*\\'" . ange-ftp-completion-hook-function) (ms-dos windows-nt) "^[[:alpha:]]:/[^/:]*\\'" ("^[:alpha:]]:/[^/:]*\\'" . ange-ftp-completion-hook-function)] 3 (#$ . 749)])
(add-hook 'tramp-ftp-unload-hook 'tramp-ftp-enable-ange-ftp)
#@63 When this method name is used, forward all calls to Ange-FTP.
(defconst tramp-ftp-method "ftp" (#$ . 1292))
(add-hook 'tramp--startup-hook #[0 "\301\302C\"\210\301\303\304\305E\"\210\301\303\305\306E\"\210\307\310\"\207" [tramp-ftp-method add-to-list tramp-methods tramp-default-method-alist "\\`ftp\\." nil "\\`\\(anonymous\\|ftp\\)\\'" tramp-set-completion-function ((tramp-parse-netrc "~/.netrc"))] 5])
#@175 Invoke the Ange-FTP handler for OPERATION and ARGS.
First arg specifies the OPERATION, second arg is a list of arguments to
pass to the OPERATION.

(fn OPERATION &rest ARGS)
(defalias 'tramp-ftp-file-name-handler #[385 "\306 \307\310\"\216\311\304!\204\312\313\314!\210)	@\315	8\316	8\317	8F\320\312\321>\203X\322\323#\205\352\324@\325\"\211\242
>\204F\326\327\330D\"\210\211A\211%\240\266\331
\332\325#\262
\202\352\333>\203\323\334A@!\203\323
A@\334
!\205\210\324
!\211\242
>\204\200\326\327\330D\"\210\211A@\262
%\230\262
\204\323
@A@
\312\335\336&'\"\337\325\"#\266\202AA\340=\203\272\322\325A%\210\202\302\322\325$\210\307\341\"\216\342@#)\266\204\202\352\343\344(=\205\336)E)(\322\323#*,\207" [file-name-handler-alist tramp-file-name-structure ange-ftp-ftp-name-res ange-ftp-ftp-name-arg ange-ftp-name-format cl-struct-tramp-file-name-tags match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] boundp nil require ange-ftp 3 2 4 "" (file-directory-p file-exists-p) apply ange-ftp-hook-function tramp-dissect-file-name t signal wrong-type-argument tramp-file-name tramp-set-connection-property "started" (copy-file rename-file) tramp-tramp-file-p make-temp-file expand-file-name file-name-extension copy-file #[0 "\3011	\302\300!0\207\210\303\207" [V0 (error) delete-file nil] 2] rename-file tramp-file-name-handler tramp-completion-file-name-handler tramp-ftp-method tramp-temp-name-prefix tramp-compat-temporary-file-directory inhibit-file-name-operation inhibit-file-name-handlers] 13 (#$ . 1709)])
#@79 Check if it's a FILENAME that should be forwarded to Ange-FTP.

(fn FILENAME)
(defalias 'tramp-ftp-file-name-p #[257 "\302
!\205\303
!\211\242>\204\304\305\306D\"\210\211A@\262
	\230\207" [cl-struct-tramp-file-name-tags tramp-ftp-method tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name] 6 (#$ . 3310)])
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\210\307\312\313\"\210\314\315!\207" [function-put tramp-ftp-file-name-p speed -1 put byte-optimizer byte-compile-inline-expand add-hook tramp--startup-hook #[0 "\300\301\302\303B\"\207" [add-to-list tramp-foreign-file-name-handler-alist tramp-ftp-file-name-p tramp-ftp-file-name-handler] 4] tramp-unload-hook #[0 "\300\301\302\"\207" [unload-feature tramp-ftp force] 3] provide tramp-ftp] 5)