Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/url/url-misc.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\315R!\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)