;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)