ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/tramp-ftp.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 428)])
(eval-after-load "ange-ftp" #[nil "\300\301!\205 \301 \207" [functionp tramp-disable-ange-ftp] 2])
(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" (#$ . 1595))
(byte-code "\301\302\303B\"\210\301\304\305\303E\"\210\301\304\303\306E\"\210\307\310\311\"\207" [tramp-ftp-method add-to-list tramp-methods nil tramp-default-method-alist "\\`ftp\\." "\\`\\(anonymous\\|ftp\\)\\'" eval-after-load tramp #[nil "\301\302\"\207" [tramp-ftp-method tramp-set-completion-function ((tramp-parse-netrc "~/.netrc"))] 3]] 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\311 <\320>\203L \321\322<=#\205\304\323=@\324\"\211 >\325?I\210\326>\327\324#)\202\304<\330>\203\251\331=A@!\203\251=A@ @\332\323@!!?\230)\204\251=@ @=A@ A@\311 B C\311\333\334J\311\310\335!\203\227 \336\335\337N@!\206\f\340\341!\203\256 \342\341!\204\251 \343\341!\205\f\341 \202\f\344\345!\211 D\205\273 \346D!)\203\307 \347\344\345!!\202\f\344\350!\211 D\205\324 \346D!)\203\340 \347\344\350!!\202\f\344\351!\211 D\205\355 \346D!)\203\371 \347\344\351!!\202\f\352\353!\203\347\353!\202\f\354\355!\210\347\356!)\" E\357C\324\" F\311 G\36019\342\361!\204*\343\361!\2052\361EBF#\211G0\202l\210\3621b\363E!FPGB\203T\364G!\210\202]\365\317\311G\311\366%\210\3110\202f\210\202:\203m\202:\210G. H=AA =<\367=\203\220\321<@H\324=A%\210\202\232\321<@H\324$\210\370\216\371HA=@#-\202\304\372\373I<=\205\265JE J< I\321\322<=#*-\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 #[nil "\301\302\"\207" [save-match-data-internal 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 0 tramp-set-connection-property "started" (copy-file rename-file) tramp-tramp-file-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 (error) make-temp-file (file-already-exists) make-temp-name make-directory write-region silent copy-file #[nil "\3011 \302!0\207\210\303\207" [tmpfile (error) delete-file nil] 2] rename-file tramp-file-name-handler tramp-completion-file-name-handler operation args v tramp-ftp-method filename newname dir-flag f d prefix extension result tmpfile inhibit-file-name-operation inhibit-file-name-handlers] 7 (#$ . 2062)])
#@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 (#$ . 4474)])
(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)
Kontol Shell Bypass