Current File : //usr/share/emacs/24.3/lisp/url/url-proxy.elc

;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:25 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-proxy.el
;;; in Emacs version 24.3.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(\n\307H>\204 \310\311\312\313#\210\n\314H\315\232\203*\316\207\304\n\307H>\2049\310\311\312\313#\210\n\314H\"A\203Z\317\304\n\307H>\204R\310\311\312\313#\210\n\314H\"AP\207\316\207" [url-proxy-services host urlobj cl-struct-url-tags assoc "no_proxy" string-match 0 error "%s accessing a non-%s" url-type 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\f\316\225\310O\317Q\202Q\312\320\f\"\203G\321\f\316\225\310OP\202Q\322\301\323\324\f\"\325#\210\310+\207" [url-proxy-locator url host case-fold-search proxy proxies split-string " *; *" nil t string-match "^direct" "^proxy +" "http://" 0 "/" "^socks +" "socks://" url-warn format "Unknown proxy directive: %s" critical] 6])
(defalias 'url-proxy #[(url callback &optional cbargs) "\305!\211\306H	>\204\307\310\311\302#\210\312H\313\230\203 \314\n\f#\207\307\315\"\207" [url-using-proxy cl-struct-url-tags url callback cbargs url-generic-parse-url 0 error "%s accessing a non-%s" url-type 1 "http" url-http "Don't know how to use proxy `%s'"] 5])
(provide 'url-proxy)