;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (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")) (#$ . -157)) #@226 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. (fn URL) (defalias 'emms-url-quote-entire #[257 "\300\301\302\303\304\305\"\"\"\207" [apply concat mapcar #[257 "\301\"\211\204\f\302!\207\211A\207" [emms-url-specials-entire assoc char-to-string] 4 "\n\n(fn CH)"] append nil] 8 (#$ . 396)]) #@271 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". (fn S &optional SAFE) (defalias 'emms-url-quote #[513 ";\204\300\207\211\204\300\262\301 \302\303\"\216\304\305\"\203(\306\307\310\305\300#\"\202,\306\311\"\312\302\313\"\314\315\"\316\317\"\262\300#\262)\207" ["" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "]" format "[]a-zA-Z_.-/%s]" emms-replace-regexp-in-string "[a-zA-Z_.-/%s]" mapconcat #[257 "\301!\302\300\"\203 \207\303\304\"\207" [V0 char-to-string string-match format "%%%02x"] 5 "\n\n(fn C)"] encode-coding-string utf-8 append nil] 10 (#$ . 865)]) #@79 Run (emms-url-quote s " "), then replace ` ' with `+'. (fn S &optional SAFE) (defalias 'emms-url-quote-plus #[513 "\300\301\302\303\301P\"#\207" [emms-replace-regexp-in-string " " "+" emms-url-quote] 9 (#$ . 1704)]) #@79 Run (emms-url-quote s " "), then replace ` ' with `_'. (fn S &optional SAFE) (defalias 'emms-url-quote-underscore #[513 "\300\301\302\303\301P\"#\207" [emms-replace-regexp-in-string " " "_" emms-url-quote] 9 (#$ . 1929)]) (defalias 'emms-http-content-coding #[0 "\301 \302\303\"\216\304\300!\205 ;\205 \305\306\"\205 \307\310\311\"\227!)\207" [url-http-content-type match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] boundp string-match ";\\s-*charset=\\([^;[:space:]]+\\)" intern-soft match-string 1] 5]) #@134 Recode the buffer with `url-retrieve's contents. Else the buffer would contain multibyte chars like \123\456. (fn &optional BUFFER) (defalias 'emms-http-decode-buffer #[256 "r\211\206pq\210@\206\301\302 \206\211\211\205!\303\304!\210\305ed#\266\202)\207" [default-process-coding-system utf-8 emms-http-content-coding set-buffer-multibyte t decode-coding-region] 7 (#$ . 2483)]) (provide 'emms-url)