;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'url-parse)
(defvar url-scheme-registry (make-hash-table :size 7 :test 'equal))
#@57 Assoc-list of methods that each URL loader can provide.
(defconst url-scheme-methods '((default-port . variable) (asynchronous-p . variable) (expand-file-name . function) (file-exists-p . function) (file-attributes . function) (parse-url . function) (file-symlink-p . function) (file-writable-p . function) (file-directory-p . function) (file-executable-p . function) (directory-files . function) (file-truename . function)) (#$ . 173))
(defconst url-scheme-default-properties (list 'name "unknown" 'loader 'url-scheme-default-loader 'default-port 0 'expand-file-name 'url-identity-expander 'parse-url 'url-generic-parse-url 'asynchronous-p nil 'file-directory-p 'ignore 'file-truename #[128 "\300
@!\207" [url-recreate-url] 3 "\n\n(fn &rest ARGS)"] 'file-exists-p 'ignore 'file-attributes 'ignore))
#@80 Signal an error for an unknown URL scheme.

(fn URL &optional CALLBACK CBARGS)
(defalias 'url-scheme-default-loader #[769 "\301\302\303!>\204\304\305\306D\"\210\307H\"\207" [cl-struct-url-tags error "Unknown URL scheme: %s" type-of signal wrong-type-argument url 1] 9 (#$ . 979)])
(defvar url-scheme--registering-proxy nil)
#@88 Automatically find a proxy for SCHEME and put it in `url-proxy-services'.

(fn SCHEME)
(defalias 'url-scheme-register-proxy #[257 "\211\304P\305
\226!\206\305
\227!\306\"\307\310;\203#\311\230\203#\307\262
\204\344\203\344\312\313\"\203\200\314\307!\262
\315
!\n>\204F\316\317\320D\"\210\211\321\322I\210\315
!\n>\204Z\316\317\320D\"\210\211\323\324\321\"I\210\315
!\n>\204r\316\317\320D\"\210\211\325\326\324\327\"!I\210\202\344\312\"\203\267\314!\262
\315
!\n>\204\233\316\317\320D\"\210\211\321\322I\210\315
!\n>\204\257\316\317\320D\"\210\211\330\307I\210\202\344\314\307!\262
\315
!\n>\204\313\316\317\320D\"\210\211\321\322I\210\315
!\n>\204\337\316\317\320D\"\210\211\323I\210
?\205O
\211\205O
\331\332\315!\n>\204
\316\317\320D\"\210\323H\315
!\n>\204
\316\317\320D\"\210\211\325H\206C
\315
!\n>\204(
\316\317\320D\"\210\211\321H\205C
\333\315!\n>\204>
\316\317\320D\"\210
\321H\334\"\262
#BB\335\336\")\207" [url-proxy-services url-scheme--registering-proxy cl-struct-url-tags url-nonrelative-link "_proxy" getenv assoc nil t "" string-match "^\\([^:]+\\):\\([0-9]+\\)$" url-generic-parse-url type-of signal wrong-type-argument url 1 "http" 4 match-string 5 string-to-number 2 7 format "%s:%d" url-scheme-get-property default-port message "Using a proxy for %s..."] 15 (#$ . 1316)])
#@148 Get PROPERTY of a URL SCHEME.
Will automatically try to load a backend from url-SCHEME.el if
it has not already been loaded.

(fn SCHEME PROPERTY)
(defalias 'url-scheme-get-property #[514 "
\227\262\304\"\211\204\236\305P\306
!\3071(\310\311\232\203!\312\202\"
!0\210\202-\210\202-\210\313
!\203\234	\204;\314!\210\315\316F\262\n\211\203\225\211@\317\320\321@#!
A
\203\214\211\322\267\202\207\313!\203\214\323@#\262\266\202\216\324!\203\214\323@J#\262\266\202\216\325\326\"\210\266
A\266\202\202C\210\327#\210\266\330
\"\206\251\330\"\207" [url-scheme-registry url-scheme--registering-proxy url-scheme-methods url-scheme-default-properties gethash "url-" intern (error) require "https" url-http fboundp url-scheme-register-proxy name loader intern-soft format "%s-%s" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (function 94 variable 114)) plist-put boundp error "Malformed url-scheme-methods entry: %S" puthash plist-get] 13 (#$ . 2671)])
(provide 'url-methods)