1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / url /
Filename : url-misc.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:23 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-misc.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\300\302!\207" [require url-vars url-parse] 2)
#@2 
(autoload 'Info-goto-node "info" '(#$ . 626) t)
(autoload 'man "man" nil t)
#@31 Fetch a Unix manual page URL.
(defalias 'url-man #[(url) "\302\303H	>\204�\304\305\306\300#\210\307H!\210\310\207" [url cl-struct-url-tags man 0 error "%s accessing a non-%s" url-filename 6 nil] 5 (#$ . 709)])
#@23 Fetch a GNU Info URL.
(defalias 'url-info #[(url) "\304H	>\204�\305\306\307\300#\210\310H\311\304H	>\204!�\305\306\312\300#\210\313H\206(�\314!\n\203=�\203=�\315\316\n\317R!\210\202D�\305\320\321!\"\210*\322\207" [url cl-struct-url-tags fname node 0 error "%s accessing a non-%s" url-filename 6 url-unhex-string url-target 7 "Top" Info-goto-node "(" ")" "Malformed url: %s" url-recreate-url nil] 5 (#$ . 928)])
(defalias 'url-do-terminal-emulator #[(type server port user) "\304\305\306\307\203�\310P\202�\311	#!\n\312=\203�\313\2024�\n\314=\203&�\315\2024�\n\316=\2030�\317\2024�\320\321\n\"\n\312=\203J�\203E�	\322E\202}�	C\202}�\n\314=\203h�\203Y�\323\324\"\210\203c�	D\202}�	C\202}�\n\316=\203|�\203w�\323\324\"\210	C\202}�\325#\207" [user server type port terminal-emulator generate-new-buffer format "%s%s" "@" "" rlogin "rlogin" telnet "telnet" tn3270 "tn3270" error "Unknown terminal emulator required: %s" "-l" message "Please log in as user: %s" nil] 6])
(defalias 'url-generic-emulator-loader #[(url) "\306\307H	>\204�\310\311\312\300#\210\313H\227!\307H	>\204#�\310\311\314\300#\210\315H\307H	>\2045�\310\311\316\300#\210\317H\320\211\307H	>\204J�\310\311\321\300#\210
\322H\206x�
\307H	>\204^�\310\311\312\300#\210
\313H\205x�\323
\307H	>\204s�\310\311\312\300#\210
\313H\324\")!\325\n\f$\210,\326\207" [url cl-struct-url-tags type server name urlobj intern 0 error "%s accessing a non-%s" url-type 1 url-host 4 url-user 2 number-to-string url-portspec 5 url-scheme-get-property default-port url-do-terminal-emulator nil port] 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\310H	>\204�\311\312\313\300#\210\314H!\315\306\212\316\317\f\"\204*�\311\320\f\"\210\202Z�\321\322\f\"\211\203B�\316\323
\"\203B�
\310\211\224O\324
\203N�
\310H\325=\203R�\326
P\307\f\310\225\306O!\327\330!q\210\331 \210\332\333\nG\"\334
\335\336\335\211\261\210\n\203x�\nc\210p-\207" [url cl-struct-url-tags data encoding desc mediatype nil url-unhex-string 0 error "%s accessing a non-%s" url-filename 6 "8bit" string-match "\\([^,]*\\)?," "Malformed data URL: %s" match-string 1 ";base64\\'" "base64" 59 "text/plain" generate-new-buffer " *url-data*" mm-disable-multibyte format "Content-Length: %d\n" "Content-Type: " "\n" "Content-Encoding: "] 9 (#$ . 2661)])
(provide 'url-misc)