;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\300\302!\207" [require url-vars url-parse] 2) #@2  (autoload 'Info-goto-node "info" '(#$ . 479) t) (autoload 'man "man" nil t) #@31 Fetch a Unix manual page URL. (defalias 'url-man #[(url) "\302\303! >\204\304\305\300D\"\210\306H!\210\307\207" [url cl-struct-url-tags man type-of signal wrong-type-argument 6 nil] 5 (#$ . 562)]) #@23 Fetch a GNU Info URL. (defalias 'url-info #[(url) "\304! >\204\305\306\300D\"\210\307H\310\304! >\204#\305\306\300D\"\210\311H\206*\312!\n\203? \203?\313\314\n\315 R!\210\202F\316\317\320!\"\210*\321\207" [url cl-struct-url-tags fname node type-of signal wrong-type-argument 6 url-unhex-string 7 "Top" Info-goto-node "(" ")" error "Malformed url: %s" url-recreate-url nil] 5 (#$ . 770)]) (defalias 'url-do-terminal-emulator #[(type server port user) "\304\305\306\307\310\203\311P\202\312 #\n\313\267\202$\314\202(\315\202(\316\202(\317\320\n\"\321\n\322\267\202S\203: \323E\202T C\202T \203I D\202T C\202T C\202T\321%!\207" [user server type port switch-to-buffer apply make-term format "%s%s" "@" "" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (rlogin 24 telnet 28 tn3270 32)) "rlogin" "telnet" "tn3270" error "Unknown terminal emulator required: %s" nil #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (rlogin 47 telnet 63 tn3270 78)) "-l"] 9]) (defalias 'url-generic-emulator-loader #[(url) "\306\307! >\204\310\311\300D\"\210\312H\227!\307! >\204%\310\311\300D\"\210\313H\307! >\2048\310\311\300D\"\210\314H\315\307! >\204M\310\311\300D\"\210\211\316H\206}\307! >\204b\310\311\300D\"\210\211\312H\205}\317\307! >\204x\310\311\300D\"\210\312H\320\"\262!\321\n \f$\210,\322\207" [url cl-struct-url-tags type server name port intern type-of signal wrong-type-argument 1 4 2 number-to-string 5 url-scheme-get-property default-port url-do-terminal-emulator nil] 7]) (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\207" [defalias url-rlogin url-generic-emulator-loader url-telnet url-tn3270] 3) #@30 Fetch a data URL (RFC 2397). (defalias 'url-data #[(url) "\306\307\310! >\204\311\312\300D\"\210\313H!\314\306\212\315\316\f\"\204+\317\320\f\"\210\202\\\321\322\f\"\307\323\f\324\225\"! \203L\315\325 \"\203L\323 \324\211\224#\326 \203X \324H\327=\203\\\330 P\331\332!q\210\333\334!\210\335 \210\336\337\nG\"\340 \341\342 \341\211\261\210\n\203~\nc\210p-\207" [url cl-struct-url-tags data encoding desc mediatype nil url-unhex-string type-of signal wrong-type-argument 6 "8bit" string-match "\\([^,]*\\)," error "Malformed data URL: %s" match-string 1 substring 0 ";base64\\'" "base64" 59 "text/plain" generate-new-buffer " *url-data*" require mm-util mm-disable-multibyte format "Content-Length: %d\n" "Content-Type: " "\n" "Content-Transfer-Encoding: "] 8 (#$ . 2532)]) (provide 'url-misc)