;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(require 'cl-lib)
(defvar with-proxy-http-server "127.0.0.1:1081")
(defvar with-proxy-no-proxy '("localhost" "127.0.0.1" "192.168.*" "10.*"))
#@45 Remove key-value pair from ARGS.

(fn ARGS)
(defalias 'with-proxy--cl-args-body #[257 "\211\3002 \301@!\203 \211AA\262\202 \302\300\"\210\202 \207" [break keywordp throw] 5 (#$ . 229)])
#@218 Execute BODY with only url proxy.
If HTTP-SERVER is nil, use `with-proxy-http-server' as default.
If NO-PROXY is nil, use `with-proxy-no-proxy' as default.

(fn &rest BODY &key HTTP-SERVER NO-PROXY &allow-other-keys)
(defalias 'with-proxy-url '(macro . #[128 "\302\303\"A@\302\304\"A@\206 \206 	\305!\306\307\310\311\312B\313B\314	B\315\316\317\320\f\321#\322QBFDDCBBD\207" [with-proxy-http-server with-proxy-no-proxy plist-member :http-server :no-proxy with-proxy--cl-args-body with-temp-buffer let url-proxy-services quote "http" "https" "ftp" "no_proxy" "^\\(" mapconcat identity "\\|" "\\)"] 19 (#$ . 429)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-proxy-url lisp-indent-function 0 put edebug-form-spec t] 5)
#@153 Execute BODY with only shell proxy.
If HTTP-SERVER is nil, use `with-proxy-http-server' as default.

(fn &rest BODY &key HTTP-SERVER &allow-other-keys)
(defalias 'with-proxy-shell '(macro . #[128 "\301\302\"A@\211\206 \303!\304\305\306\307\310E\307\311EBBBBD\207" [with-proxy-http-server plist-member :http-server with-proxy--cl-args-body with-temp-buffer let ((process-environment (cl-copy-list process-environment))) setenv "http_proxy" "https_proxy"] 11 (#$ . 1195)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-proxy-shell lisp-indent-function 0 put edebug-form-spec t] 5)
#@228 Execute BODY with both url and shell proxy.
If HTTP-SERVER is nil, use `with-proxy-http-server' as default.
If NO-PROXY is nil, use `with-proxy-no-proxy' as default.

(fn &rest BODY &key HTTP-SERVER NO-PROXY &allow-other-keys)
(defalias 'with-proxy '(macro . #[128 "\300\301\"A@\300\302\"A@\303\301\302\304\301\nBBB\257\207" [plist-member :http-server :no-proxy with-proxy-url with-proxy-shell] 12 (#$ . 1816)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\301!\207" [function-put with-proxy lisp-indent-function defun put edebug-form-spec t provide] 5)