;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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 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")) (#$ . -478)) #@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\302!\202\211A\207" [emms-url-specials-entire assoc char-to-string] 4 "\n\n(fn CH)"] append nil] 8 (#$ . 717)]) #@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\304\305\306!\307\"\310$\216\311\312\"\203/\313\314\315\312\300#\"\2023\313\316\"\317\302\320\321\305\306!\322\"\323\324%\325\326\"\327\330\"\262\300#\262)\207" ["" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [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\211\202\303\304\"\207" [char-to-string string-match format "%%%02x"] 5 "\n\n(fn C)" encode-coding-string utf-8 append nil] 11 (#$ . 1187)]) #@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 (#$ . 2087)]) #@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 (#$ . 2312)]) (defalias 'emms-http-content-coding #[0 "\301 \302\303\304\305\306!\307\"\310$\216\311\300!\205';\205'\312\313\"\205'\314\315\316\"\227!)\207" [url-http-content-type match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 boundp string-match ";\\s-*charset=\\([^;[:space:]]+\\)" intern-soft match-string 1] 7]) #@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 (#$ . 2899)]) (provide 'emms-url)