;ELC   
;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan  5 18:41:53 2003
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/url-cvs-20030105-src/lisp/url-misc.el
;;; in Emacs version 21.1.1
;;; with bytecomp version 2.85
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`url-misc.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require url-vars url-parse] 2)
#@2 
(autoload 'Info-goto-node "info" '(#$ . 725) t)
(autoload 'man "man" nil t)
#@31 Fetch a Unix manual page URL.
(defalias 'url-man #[(url) "\301\302H!\210\303\207" [url man 5 nil] 3 (#$ . 808)])
#@23 Fetch a GNU Info URL.
(defalias 'url-info #[(url) "\303H\304\305H\206\f \306!	\203! \n\203! \307\310	\311\nR!\210\202( \312\313\314!\"\210*\315\207" [url fname node 5 url-unhex-string 6 "Top" Info-goto-node "(" ")" error "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 	\322E\202y 	C\202y \n\314=\203h \203Y \323\324\"\210\203c 	D\202y 	C\202y \n\316=\205y \203w \323\324\"\210	C#\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"] 6])
(defalias 'url-generic-emulator-loader #[(url) "\305\306H\227!\307H\310H\311H\206! \312H\205! \313\306H\314\"\315	\n\f$\210,\316\207" [url type server name port intern 0 3 1 4 8 url-scheme-get-property default-port url-do-terminal-emulator nil] 5])
(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) "\305\306\307H!\310\305\212\311\312\"\204 \313\314\"\210\202L \315\316\"\211\2034 \311\317\f\"\2034 \f\320\211\224O\321\f\203@ \f\320H\322=\203D \323\fP\306\320\225\305O!\324\325!q\210\326\327!\203[ \327\305!\210\330\331	G\"\332\f\333\334\n\333\211\261\210	\203q 	c\210p-\207" [url data encoding desc mediatype nil url-unhex-string 5 "8bit" string-match "\\([^,]*\\)?," error "Malformed data URL: %s" match-string 1 ";base64\\'" 0 "base64" 59 "text/plain" generate-new-buffer " *url-data*" fboundp set-buffer-multibyte format "Content-Length: %d\n" "Content-Type: " "\n" "Content-Encoding: "] 9 (#$ . 2173)])
(provide 'url-misc)