;ELC���
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.



#@84 Type of the w3m command.
The valid values include `w3m', `w3mmee', and `w3m-m17n'.
(defvar w3m-type nil (#$ . 87))
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313&\210\300\314\315\316\304\305\306\317&\210\300\320\321\322\304\305\306\323&\207" [custom-declare-variable w3m-language (if (or (and (boundp 'current-language-environment) (string= "Japanese" (symbol-value 'current-language-environment))) (boundp 'MULE)) "Japanese") "*Your preferred language used in emacs-w3m sessions." :group w3m :type (radio (const :format "%v " "Japanese") (const :tag "Other" nil)) :get #[(symbol) "\303\304\305!\"\306\307\310\n\"\205�\311\211\312\n\"\210*\207" [symbol case-fold-search value format "%s" default-value t string-match "\\`japan" "Japanese" set-default] 4] :set #[(symbol value) "\302	\303\232\205	�\303\"\207" [symbol value set-default "Japanese"] 4] w3m-coding-system (if (featurep 'mule) (if (eq w3m-type 'w3mmee) 'iso-2022-7bit-ss2 'iso-2022-7bit) 'iso-8859-1) "*Default coding system used to communicate with the w3m command." (coding-system :size 0) w3m-default-coding-system (if (equal "Japanese" w3m-language) 'shift_jis 'iso-8859-1) "*Default coding system used to encode url strings and post-data." (coding-system :size 0)] 12)
(defalias 'w3m-url-encode-string #[(str &optional coding) "\304\305\306\307\310\311\206�\312	\206�\n\206�\206�\313\"\314\"\"\"\207" [str coding w3m-default-coding-system w3m-coding-system apply concat mapcar #[(ch) "\301=\203�\302\207\303\304\305!\"\203�\305!\207\306\307\"\203�\310\207\311\312\"\207" [ch 10 "%0D%0A" string-match "[-a-zA-Z0-9_:/.]" char-to-string char-equal 32 "+" format "%%%02x"] 4] append encode-coding-string "" iso-2022-7bit nil] 8])
(provide 'w3mexcerpt)