;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:36 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/tramp-ftp.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(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 #[nil "\303\304\"\303\305\"\306\n\306	\"\"\211*\207" [file-name-handler-alist a2 a1 rassq ange-ftp-hook-function ange-ftp-completion-hook-function delete] 5 (#$ . 574)])
(eval-after-load "ange-ftp" '(when (functionp 'tramp-disable-ange-ftp) (tramp-disable-ange-ftp)))
(defalias 'tramp-ftp-enable-ange-ftp #[nil "\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) "^[a-zA-Z]:/[^/:]*\\'" ("^[a-zA-Z]:/[^/:]*\\'" . ange-ftp-completion-hook-function)] 3])
(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" (#$ . 1739))
(byte-code "\301\302\303B\"\210\301\304\305\303E\"\210\301\304\303\306E\"\210\307\310\311\"\210\312\313\314\315#\210\316\317\320\"\207" [tramp-ftp-method add-to-list tramp-methods nil tramp-default-method-alist "\\`ftp\\." "\\`\\(anonymous\\|ftp\\)\\'" eval-after-load tramp (tramp-set-completion-function tramp-ftp-method '((tramp-parse-netrc "~/.netrc"))) put substitute-in-file-name ange-ftp tramp-handle-substitute-in-file-name add-hook tramp-ftp-unload-hook #[nil "\300\301\302\303\302\304\305\301!\"\"\"\207" [setplist substitute-in-file-name delete ange-ftp tramp-handle-substitute-in-file-name symbol-plist] 8]] 5)
#@139 Invoke the Ange-FTP handler for OPERATION.
First arg specifies the OPERATION, second arg is a list of arguments to
pass to the OPERATION.
(defalias 'tramp-ftp-file-name-handler #[(operation &rest args) "\306 \307\216\310\305!\204\311\312\313!\210)\n@\314\n8\315\n8\316\n8F\317\3117\320>\203L\321\32278#\205\206
\3238@\324\"\2119\325:I\210\3269\327\324#)\202\206
7\330>\203k
\3318\211;A@)!\203k
8\211;A@)<\332\323<!!:\230)\204k
8@<8\211;A@)=<\311><\311\333\334J\311\310\335!\203\243\336\335\337N@!\206
\340\341!\203\272\342\341!\204\265\343\341!\205
\341 \202
\344\345!\211?\205\307\346?!)\203\323\347\344\345!!\202
\344\350!\211?\205\340\346?!)\203\354\347\344\350!!\202
\344\351!\211?\205\371\346?!)\203
\347\344\351!!\202
\352\353!\203
\347\353!\202
\354\355!\210\347\356!)\"@\357<\324\"A\311\211B\360\361\217\210B.C8\211;AA)87\362=\203R
\3217<C\3248A%\210\202\\
\3217<C\324$\210\363\216\364C=8@#-\202\206
\365\366D7=\205w
EEE7D\321\32278#*-\207" [save-match-data-internal file-name-handler-alist tramp-file-name-structure ange-ftp-ftp-name-res ange-ftp-ftp-name-arg ange-ftp-name-format match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) boundp nil require ange-ftp 3 2 4 #1="" (file-directory-p file-exists-p) apply ange-ftp-hook-function tramp-dissect-file-name t 0 tramp-set-connection-property "started" (copy-file rename-file) file-remote-p tramp-file-name-method expand-file-name tramp-temp-name-prefix temporary-file-directory eval standard-value fboundp temp-directory subrp functionp getenv "TEMP" file-directory-p file-name-as-directory "TMP" "TMPDIR" file-exists-p "c:/temp" message "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" file-name-extension (byte-code "\304\305!\204\f\306\305!\205\305	\n#\304\207" [prefix dir-flag extension result subrp make-temp-file functionp] 4) ((error (byte-code "\300\301\302\217\204\300\207" [nil (byte-code "\304!	P\203\305\n!\210\202\306\307\310\n\310\311%\210\310\207" [prefix extension result dir-flag make-temp-name make-directory write-region #1# nil silent] 6) ((file-already-exists t))] 3))) copy-file ((byte-code "\300\301\302\217\207" [nil (delete-file tmpfile) ((error))] 3)) rename-file tramp-file-name-handler tramp-completion-file-name-handler operation args v tramp-ftp-method x filename newname dir-flag d prefix extension result tmpfile inhibit-file-name-operation inhibit-file-name-handlers] 7 (#$ . 2480)])
#@64 Check if it's a filename that should be forwarded to Ange-FTP.
(defalias 'tramp-ftp-file-name-p #[(filename) "\302\303!!	\230\207" [filename tramp-ftp-method tramp-file-name-method tramp-dissect-file-name] 3 (#$ . 5050)])
(byte-code "\300\301\302\303#\210\304\305\301\306B\"\210\307\310\311\"\210\312\313!\207" [put tramp-ftp-file-name-p byte-optimizer byte-compile-inline-expand add-to-list tramp-foreign-file-name-handler-alist tramp-ftp-file-name-handler add-hook tramp-unload-hook #[nil "\300\301\302\"\207" [unload-feature tramp-ftp force] 3] provide tramp-ftp] 4)