;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (require 'url-parse)#@20 (fn URLOBJ HOST) (defalias 'url-default-find-proxy-for-url #[514 "\302\303\"\203\304\302\303\"A\"\204)\305! >\204!\306\307\310D\"\210\311H\312\232\203+\313\207\302\305! >\204;\306\307\310D\"\210\311H\"A\203^\314\302\305! >\204V\306\307\310D\"\210\311H\"AP\207\313\207" [url-proxy-services cl-struct-url-tags assoc "no_proxy" string-match type-of signal wrong-type-argument url 1 "www" "DIRECT" "PROXY "] 8 (#$ . 104)]) (defvar url-proxy-locator 'url-default-find-proxy-for-url)#@17 (fn URL HOST) (defalias 'url-find-proxy-for-url #[514 "\302\"\303\"\304\305<\203@\202\262\306\307\"\203\"\304\202O\306\310\"\2034\311\312\225\304O\313Q\202O\306\314\"\203E\315\312\225\304OP\202O\316\317\320\321\"\322#\210\304)\207" [url-proxy-locator case-fold-search split-string " *; *" nil t string-match "^DIRECT" "^PROXY +" "http://" 0 "/" "^SOCKS +" "socks://" display-warning url format "Unknown proxy directive: %s" :error] 9 (#$ . 612)]) (autoload 'url-http "url-http")#@38 (fn URL CALLBACK &optional CBARGS) (defalias 'url-proxy #[770 "\302!\303! >\204\304\305\306D\"\210\307H\310\230\203!\311#\207\312\313\"\207" [url-using-proxy cl-struct-url-tags url-generic-parse-url type-of signal wrong-type-argument url 1 "http" url-http error "Don't know how to use proxy `%s'"] 7 (#$ . 1122)]) (provide 'url-proxy)