Current File : //usr/share/emacs/24.3/lisp/url/url-misc.elc

;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)