;ELC   
;;; Compiled by heimdall@localhost on Sat Feb 16 17:23:49 2008
;;; from file /home/heimdall/repos/emms/emms-url.el
;;; in Emacs version 23.0.60.1
;;; 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 "`emms-url.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\300\301!\210\300\302!\207" [require url emms-compat] 2)
#@155 *An alist of characters which must be represented specially in URLs.
The transformation is the key of the pair.

This is used by `emms-url-quote-entire'.
(defvar emms-url-specials-entire '((32 . "%20") (10 . "%0D%0A")) (#$ . -652))
#@216 Escape specials conservatively in an entire URL.

The specials to escape are specified by the `emms-url-specials-entire'
variable.

If you want to escape parts of URLs thoroughly, then use
`emms-url-quote' instead.
(defalias 'emms-url-quote-entire #[(url) "\301\302\303\304\305\306\"\"\"\207" [url apply concat mapcar #[(ch) "\303	\"\211\204 \304!\202 \nA)\207" [ch emms-url-specials-entire repl assoc char-to-string] 4] append nil] 7 (#$ . 891)])
#@248 Replace special characters in S using the `%xx' escape.
This is useful for escaping parts of URLs, but not entire URLs.

Characters in [a-zA-Z_.-/] and SAFE(default is "") will never be
quoted.
e.g.,
    (emms-url-quote "abc def") => "abc%20def".
(defalias 'emms-url-quote #[(s &optional safe) ";\204 \305\207	\204 \305\306 \307\216\310\311	\"\203$ \312\313\314\311\305	#\"\202( \312\315	\"\316\317\320\321\"\322\f\323\")\305#+\207" [s safe save-match-data-internal re string "" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "]" format "[]a-zA-Z_.-/%s]" emms-replace-regexp-in-string "[a-zA-Z_.-/%s]" mapconcat #[(c) "\303!\304\n	\"\203 	\202 \305\306\")\207" [c s1 re char-to-string string-match format "%%%02x"] 3] encode-coding-string utf-8 append nil] 6 (#$ . 1352)])
#@56 Run (emms-url-quote s " "), then replace ` ' with `+'.
(defalias 'emms-url-quote-plus #[(s &optional safe) "\302\303\304\305	\303P\"#\207" [s safe emms-replace-regexp-in-string " " "+" emms-url-quote] 7 (#$ . 2207)])
(defalias 'emms-http-content-coding #[nil "\302 \303\216\304\301!\205 	;\205 \305\306	\"\205 \307\310\311	\"\227!*\207" [save-match-data-internal url-http-content-type match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) boundp string-match ";\\s-*charset=\\([^;[:space:]]+\\)" intern-soft match-string 1] 4])
#@111 Recode the buffer with `url-retrieve's contents. Else the
buffer would contain multibyte chars like \123\456.
(defalias 'emms-http-decode-buffer #[(&optional buffer) "r\206 pq\210	@\206 \304\305 \206 \n\211\205# \306\307!\210\310ed#+\207" [buffer default-process-coding-system default coding utf-8 emms-http-content-coding set-buffer-multibyte t decode-coding-region] 5 (#$ . 2790)])
(provide 'emms-url)