%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµùÕ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream
;ELC ;;; Compiled ;;; in Emacs version 25.2.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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)) (#$ . 499)) (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 #[(&rest args) "\301@!\207" [args url-recreate-url] 2] 'file-exists-p 'ignore 'file-attributes 'ignore)) #@44 Signal an error for an unknown URL scheme. (defalias 'url-scheme-default-loader #[(url &optional callback cbargs) "\302\303\304H >\204 \305\306\300D\"\210\307H\"\207" [url cl-struct-url-tags error "Unknown URL scheme: %s" 0 signal wrong-type-argument 1] 6 (#$ . 1297)]) (defvar url-scheme--registering-proxy nil) #@75 Automatically find a proxy for SCHEME and put it in `url-proxy-services'. (defalias 'url-scheme-register-proxy #[(scheme) "\306P\307 \226!\206 \307 \227!\310\"\311\312!\n;\203' \n\313\230\203' \311\f\204\f\n\203\f\314\315\n\"\203\225 \316\311!\211\317H\">\204J \320\321\322 D\"\210 \211#\323\324I\210) \317H\">\204c \320\321\322 D\"\210 \211$\325\326\323\n\"I\210) \211%\317H\">\204\203 \320\321\322%D\"\210%\211&\327\330\326\331\n\"!I\210*\202\f\314'\n\"\203\326 \316\n!\211\317H\">\204\261 \320\321\322 D\"\210 \211(\323\324I\210) \317H\">\204\312 \320\321\322 D\"\210 \211)\332\311I\210)\202\f\316\311!\211\317H\">\204\352 \320\321\322 D\"\210 \211*\323\324I\210) \317H\">\204\320\321\322 D\"\210 \211+\325\nI\210)\f?\205y \205y\333\334 \317H\">\204(\320\321\322 D\"\210 \325H \211\317H\">\204=\320\321\322 D\"\210 \327H\206o \317H\">\204S\320\321\322 D\"\210 \323H\205o\335 \317H\">\204j\320\321\322 D\"\210 \323H\336\")#BB\337\340\"-\207" [scheme env-var env-proxy url-proxy-services cur-proxy urlobj "_proxy" getenv assoc nil t "" string-match "^\\([^:]+\\):\\([0-9]+\\)$" url-generic-parse-url 0 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..." url-scheme--registering-proxy cl-struct-url-tags #1=#:v #2=#:v #3=#:v #4=#:v url-nonrelative-link #5=#:v #6=#:v #7=#:v #8=#:v] 10 (#$ . 1620)]) #@126 Get PROPERTY of a URL SCHEME. Will automatically try to load a backend from url-SCHEME.el if it has not already been loaded. (defalias 'url-scheme-get-property #[(scheme property) "\227\306 \"\211\204\263 \307P\310!\3111) \312\313\232\203# \314\202$ \f!0\202- \210\202. \210\315\f!\203\262 \204<