;ELC ;;; Compiled ;;; in Emacs version 27.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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)