Current File : //usr/local/share/emacs/27.2/lisp/url/url-tramp.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313\314\315& \207" [require url-parse tramp password-cache custom-declare-variable url-tramp-protocols '("ftp" "ssh" "scp" "rsync" "telnet") "List of URL protocols for which the work is handled by Tramp.\nThey must also be covered by `url-handler-regexp'." :group url :version "25.1" :type (repeat string)] 10)
#@159 Convert URL to a Tramp file name.
If URL contains a password, it will be added to the `password-data' cache.
In case URL is not convertible, nil is returned.
(defalias 'url-tramp-convert-url-to-tramp #[(url) "\305;\205 !\211\2058 \306\307 !\n>\204 \310\311\300 D\"\210 \312H!\2058 \313\307 !\n>\2044 \310\311\300 D\"\210 \312H! \205\307 !\n>\204L \310\311\300 D\"\210 \314H\f\235\205\307 !\n>\204c \310\311\300 D\"\210 \315H\203\272 \316\317\307 !\n>\204z \310\311\300 D\"\210 \314H\307 !\n>\204\214 \310\311\300 D\"\210 \320H\321\307 !\n>\204\237 \310\311\300 D\"\210 \322H \323&\307 !\n>\204\265 \310\311\300 D\"\210 \315H\"\210\317\307 !\n>\204\312 \310\311\300 D\"\210 \314H\307 !\n>\204\334 \310\311\300 D\"\210 \320H\321\307 !\n>\204\357 \310\311\300 D\"\210 \322H \307 !\n>\204\310\311\300 D\"\210 \324H&*\207" [url obj cl-struct-url-tags port url-tramp-protocols url-generic-parse-url natnump type-of signal wrong-type-argument 5 number-to-string 1 3 password-cache-add tramp-make-tramp-file-name 2 nil 4 "" 6] 11 (#$ . 800)])
#@94 Convert FILE, a Tramp file name, to a URL.
In case FILE is not convertible, nil is returned.
(defalias 'url-tramp-convert-tramp-to-url #[(file) "\3051 \306!0\202
\210\307\211\205: \242\n>\204 \310\311\312 D\"\210\313 8;\205: \314 \242\n>\2046 \310\311\312 D\"\210\313 8! \205\247 \242\n>\204M \310\311\312 D\"\210 A@\f\235\205\247 \315\316\317 \242\n>\204f \310\311\312 D\"\210 A@ \242\n>\204w \310\311\312 D\"\210\320 8\307 \242\n>\204\211 \310\311\312 D\"\210\321 8 \242\n>\204\233 \310\311\312 D\"\210\322 8\307\211\323\307\323\211&
!*\207" [file obj cl-struct-tramp-file-name-tags port url-tramp-protocols (error) tramp-dissect-file-name nil signal wrong-type-argument tramp-file-name 5 string-to-number url-recreate-url record url 2 4 6 t] 16 (#$ . 1855)])
#@164 Function called from the `file-name-handler-alist' routines.
OPERATION is what needs to be done. ARGS are the arguments that
would have been passed to OPERATION.
(defalias 'url-tramp-file-handler #[(operation &rest args) "\303!\304\303 \"\305\306\n \"!*\207" [default-directory args operation url-tramp-convert-url-to-tramp mapcar url-tramp-convert-tramp-to-url apply] 4 (#$ . 2633)])
(provide 'url-tramp)
Mini Shell