;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; 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 (#$ . 105)]) (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 (#$ . 752)]) (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" (#$ . 1295)) (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\322\323#\324\"\211\242 >\204@\325\326\327D\"\210\211A\211+\240\266\330\331\332\242 >\204[\325\326\327D\"\210\3178\242 >\204m\325\326\327D\"\210\3168\"#\210\333>\203\215\322\334#\2052\330\335\324#\2022\336>\203\337A@!\203A@,\337,!\205\306\321,!\211-\242 >\204\276\325\326\327-D\"\210-A@)+\230)\204@A@\312\340\341.\342\343\344N@\324\"\"\345\324\"#\266\202AA\n\346=\203\376\322 \324A%\210\202\322 \324$\210\307\347\"\216\350@#)\266\204\2022\351\352/ =\205#0E0/\322\334#*+\266\204)\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 "" tramp-dissect-file-name apply tramp-file-name-for-operation t signal wrong-type-argument tramp-file-name tramp-set-connection-property "process-name" ange-ftp-ftp-process-buffer (file-directory-p file-exists-p) ange-ftp-hook-function "started" (copy-file rename-file) tramp-tramp-file-p make-temp-file expand-file-name eval temporary-file-directory standard-value 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 filename cl-x tramp-temp-name-prefix inhibit-file-name-operation inhibit-file-name-handlers] 17 (#$ . 1712)]) #@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 (#$ . 3532)]) (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)