%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/net/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/net/tramp-ftp.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 #[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 (#$ . 426)])
(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) "^[a-zA-Z]:/[^/:]*\\'" ("^[a-zA-Z]:/[^/:]*\\'" . ange-ftp-completion-hook-function)] 3 (#$ . 1073)])
(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" (#$ . 1612))
(add-hook 'tramp--startup-hook #[0 "\301\302\303B\"\210\301\304\305\303E\"\210\301\304\303\306E\"\210\307\310\"\207" [tramp-ftp-method add-to-list tramp-methods nil tramp-default-method-alist "\\`ftp\\." "\\`\\(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\311\312\313!\314\"\315$\216\316\304!\204\317\320\321!\210)	@\315	8\322	8\323	8F\324\317\325>\203_\326\327#\205\330@\331\"\211\242
>\204M\332\333\334D\"\210\211A\211.\240\266\335\336\331#\262\202\337>\203\361\340A@!\203\361A@/\340/!\205\226\330/!\2110\242
>\204\216\332\333\3340D\"\2100A@).\230)\204\361@A@\317\211\341\342J\343\344\345N@!\"\346\331\"\347#)\266\204AA\350=\203\320\326\331A%\210\202\330\326\331$\210\307\310\351\312\313!\352\"\322$\216\353@#)\266\204\202\354\3551=\205\3742E21\326\327#*,\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-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 boundp nil require ange-ftp 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 expand-file-name tramp-temp-name-prefix eval temporary-file-directory standard-value file-name-extension make-temp-file copy-file "\3011	\302\300!0\207\210\303\207" [(error) delete-file nil] rename-file tramp-file-name-handler tramp-completion-file-name-handler tramp-ftp-method filename cl-x inhibit-file-name-operation inhibit-file-name-handlers] 13 (#$ . 2033)])
#@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 (#$ . 3711)])
(byte-code "\300\301\302\303#\210\304\305\306\"\210\304\307\310\"\210\311\312!\207" [put tramp-ftp-file-name-p 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] 4)

Zerion Mini Shell 1.0