;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\302\303\304\"\207" [require url-parse autoload url-warn "url"] 3) (defalias 'url-default-find-proxy-for-url #[(urlobj host) "\304\305\"\203\306\304\305\"A \"\204)\307\n! >\204!\310\311\312\nD\"\210\n\313H\314\232\203+\315\207\304\307\n! >\204;\310\311\312\nD\"\210\n\313H\"A\203]\316\304\307\n! >\204U\310\311\312\nD\"\210\n\313H\"AP\207\315\207" [url-proxy-services host urlobj cl-struct-url-tags assoc "no_proxy" string-match type-of signal wrong-type-argument url 1 "www" "DIRECT" "PROXY "] 6]) (defvar url-proxy-locator 'url-default-find-proxy-for-url) (defalias 'url-find-proxy-for-url #[(url host) "\306 \n\"\307\"\310\311\211<\203 @\202 \312\313\f\"\203$\310\202Q\312\314\f\"\2036\315\316\f\317\225\"\320Q\202Q\312\321\f\"\203G\322\316\f\317\225\"P\202Q\323\301\324\325\f\"\326#\210\310+\207" [url-proxy-locator url host case-fold-search proxy proxies split-string " *; *" nil t string-match "^direct" "^proxy +" "http://" substring 0 "/" "^socks +" "socks://" url-warn format "Unknown proxy directive: %s" critical] 6]) (autoload 'url-http "url-http") (defalias 'url-proxy #[(url callback &optional cbargs) "\305!\306! >\204\307\310\302D\"\210\311H\312\230\203!\313\n \f#\207\314\315\"\207" [url-using-proxy cl-struct-url-tags url callback cbargs url-generic-parse-url type-of signal wrong-type-argument 1 "http" url-http error "Don't know how to use proxy `%s'"] 4]) (provide 'url-proxy)