;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\303\311\312&\210\304\313\306\314\310\303\311\312&\210\304\315\306\316\310\303\311\312&\210\304\317\320\321\310\303\311\322&\210\304\323\324\325\310\303\311\326&\210\304\327\330\331\310\303\311\332&\210\304\333\334\335\310\303\311\336&\210\337\340\341\342\310\343%\210\337\344\345\346\310\343%\207" [require cl-lib w3m-util w3m custom-declare-variable w3m-form-use-fancy-faces t "Use fancy faces to fontify

tags." :group :type boolean w3m-form-treat-textarea-size "Non-nil means to process textarea size (treat textarea rows)." w3m-form-use-textarea-backup "Non-nil means save and restore text that you wrote last in the textarea.\nFiles to save text are stored in the directory specified by the\n`w3m-form-textarea-directory' variable." w3m-form-textarea-file-expire-date 3 "Date to expire of the file for textarea's backup." (choice (integer :tag "Expire date") (const :tag "Remove when emacs-w3m exit" t) (const :tag "No expire" nil)) w3m-form-textarea-file-coding-system (cond ((equal "Japanese" w3m-language) 'iso-2022-7bit-ss2) ((w3m-find-coding-system 'utf-8) 'utf-8) (t 'iso-2022-7bit-ss2)) "Coding system for textarea's backup file." coding-system w3m-form-textarea-directory (expand-file-name ".textarea" w3m-profile-directory) "Name of the directory to save the file of textarea input." directory w3m-form-textarea-edit-mode 'text-mode "Major mode to edit textarea." (choice :format "%{%t%}:\n%[Value Menu%] %v" (function :tag "Major mode") (repeat :tag "Rules to select major modes for the current page" :indent 2 (cons :format "%v" :indent 4 (choice :format "%[Value Menu%]\n %v" (regexp :tag "Regexp matches the current page") (function :tag "Predicate checks the current page") (sexp :tag "Expression checks the current page")) (function :tag "Major mode")))) custom-declare-face w3m-form ((((class color) (background light)) (:foreground "cyan" :underline t)) (((class color) (background dark)) (:foreground "red" :underline t)) (t (:underline t))) "Face to fontify forms." w3m-face w3m-form-inactive ((((class color grayscale) (min-colors 88) (background light)) (:foreground "grey50" :underline t)) (((class color grayscale) (min-colors 88) (background dark)) (:foreground "grey70" :underline t)) (((class color) (min-colors 8) (background light)) (:foreground "green" :underline t)) (((class color) (min-colors 8) (background dark)) (:foreground "yellow" :underline t))) "Face used to dim inactive forms."] 8) (defvar w3m-form-input-textarea-buffer nil) (defvar w3m-form-input-textarea-form nil) (defvar w3m-form-input-textarea-hseq nil) (defvar w3m-form-input-textarea-point nil) (defvar w3m-form-input-textarea-wincfg nil) (defvar w3m-form-input-textarea-file nil) (defvar w3m-form-input-textarea-coding-system nil) (defvar w3m-form-use-textarea-backup-p nil) (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\207" [make-variable-buffer-local w3m-form-input-textarea-buffer w3m-form-input-textarea-form w3m-form-input-textarea-hseq w3m-form-input-textarea-point w3m-form-input-textarea-wincfg w3m-form-input-textarea-file w3m-form-input-textarea-coding-system w3m-form-use-textarea-backup-p] 2) (defvar w3m-form-textarea-files nil) (make-variable-buffer-local 'w3m-form-textarea-files) (defvar w3m-form-textarea-post-files nil) (make-variable-buffer-local 'w3m-form-textarea-post-files) #@48 Non-nil if w3m textarea minor mode is enabled. (defvar w3m-form-input-textarea-mode nil (#$ . 3546)) (make-variable-buffer-local 'w3m-form-input-textarea-mode) (defvar w3m-form-input-select-buffer nil) (defvar w3m-form-input-select-form nil) (defvar w3m-form-input-select-name nil) (defvar w3m-form-input-select-id nil) (defvar w3m-form-input-select-point nil) (defvar w3m-form-input-select-candidates nil) (defvar w3m-form-input-select-wincfg nil) (defvar w3m-form-input-select-urlid nil) (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\207" [make-variable-buffer-local w3m-form-input-select-buffer w3m-form-input-select-form w3m-form-input-select-name w3m-form-input-select-id w3m-form-input-select-point w3m-form-input-select-candidates w3m-form-input-select-wincfg w3m-form-input-select-urlid] 2) (defvar w3m-form-input-map-buffer nil) (defvar w3m-form-input-map-wincfg nil) (defvar w3m-form-input-map-point nil) (defvar w3m-form-input-map-urlname nil) (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [make-variable-buffer-local w3m-form-input-map-buffer w3m-form-input-map-wincfg w3m-form-input-map-point w3m-form-input-map-urlname] 2) #@142 Specify non-nil value to create a new session after sending form. It is useful to bind this variable with `let', but do not set it globally. (defvar w3m-form-new-session nil (#$ . 4777)) #@139 Specify non-nil value to download contents after sending form. It is useful to bind this variable with `let', but do not set it globally. (defvar w3m-form-download nil (#$ . 4971)) #@50 Normalize the ACTION using URL as a current URL. (defalias 'w3m-form-normalize-action #[(action url) "\203\304\230\204\305 \"\207 \205O \3061?\307\n\"\310\224\203;\310\224\310\225W\203;\n\310\224H\311=\203;\312\313\314 \315\"!\2100\202C\210\316\n!)\210 \317\320\224\206N\321\224O\207" [action url string w3m-url-components-regexp "!CURRENT_URL!" w3m-expand-url (error) string-match 9 47 set-match-data nbutlast match-data 4 w3m-string-match-url-components-1 0 6 8] 5 (#$ . 5158)]) #@25 Return new form object. (defalias 'w3m-form-new #[(method action &optional baseurl charlst enctype) "\304\305;\203 \306!\202 \n\206\307\310&\207" [method action charlst enctype vector w3m-form-object intern application/x-www-form-urlencoded nil] 7 (#$ . 5661)]) #@35 Return t if OBJ is a form object. (defalias 'w3m-form-p #[(obj) "\301!\205\302H9\205\302H\303=\207" [obj vectorp 0 w3m-form-object] 2 (#$ . 5939)]) (defalias 'w3m-form-set-method #[(form method) "\302 ;\203 \303 !\202 I\207" [form method 1 intern] 4]) (byte-code "\300\301\302\303#\300\207" [function-put w3m-form-method gv-expander #[(do &rest args) "\302\303\304 $\207" [do args gv--defsetter w3m-form-method #[(val &rest args) "\302\303 C\"B\207" [args val w3m-form-set-method append] 4]] 5]] 4) (defalias 'w3m-form-method '(macro . #[(form) "\301\302BB\207" [form aref (1)] 3])) (defalias 'w3m-form-action '(macro . #[(form) "\301\302BB\207" [form aref (2)] 3])) (defalias 'w3m-form-charlst '(macro . #[(form) "\301\302BB\207" [form aref (3)] 3])) (defalias 'w3m-form-enctype '(macro . #[(form) "\301\302BB\207" [form aref (4)] 3])) (defalias 'w3m-form-plist '(macro . #[(form) "\301\302BB\207" [form aref (5)] 3])) (defalias 'w3m-form-put-property #[(form name property value) "\304\305\304H ;\203\306 !\202 \211\305\307\304H \"\n##I\210\207" [form name property value 5 plist-put intern plist-get] 9]) (defalias 'w3m-form-get-property '(macro . #[(form name property) "\303\211\304D\305\306 D\307 D FE\nE\207" [form name property plist-get w3m-form-plist if stringp intern] 7])) (defalias 'w3m-form-put '(macro . #[(form id name value) "\304 \305\306\nE\257\207" [form id name value w3m-form-put-property :value cons] 7])) (defalias 'w3m-form-get '(macro . #[(form id) "\302\303 \304BBBD\207" [form id cdr w3m-form-get-property (:value)] 5])) (defalias 'w3m-form-get-by-name #[(form id name) "\306H\307\211\211\2032\f@=\203*\310A@\311\"\211\203*\n@ \230\203*\nA\307AA\211\204\f +\207" [form value pair plist id name 5 nil plist-get :value] 4]) (defalias 'w3m-form-put-by-name #[(form id name value) "\306H\307\211\211\2033\310A@\311\"\211\203+\n@\f\230\203+ \240\210\n\f\241\210\312\307AA\211\204\f ?\205A\313 \311\f\fB$+\207" [form found pair plist name id 5 nil plist-get :value t w3m-form-put-property value] 7]) #@98 Move to next form field and return the point. If no field in forward, return nil without moving. (defalias 'w3m-form-goto-next-field #[nil "\303`\304\"\211\203\305`\304\"\202`\305 \304\"\211\205\nb+\207" [id beg next get-text-property w3m-form-field-id next-single-property-change] 4 (#$ . 8035)]) (defalias 'w3m-form-get-coding-system #[(coding) "\3042#\205\"\305@!\203\306\304\305@!\"\210\202A\211\204\3070\2066 \2066\305\310\n\307\"A@!\2066\207" [coding w3m-current-coding-system w3m-current-url w3m-default-coding-system det w3m-charset-to-coding-system throw nil w3m-attributes] 5]) (defalias 'w3m-form-make-form-data #[(form) "\306H\307H\310H\311\232\312\211\313\f! \203\230 @5\314 A@\315\"\2116@76A\2118:\203J8@\316=\203J578BB B\202\2208:\203n8A:\203n8A@:\203n578@BB B\202\2208:\203\200\317\320\3218\" \"\202\2208\203\220578BB B AA,\202 \205V\322 \323\"\324H\325=\203Q\326\327\330\331 #\312\2119:\332:P\333\334\335\";r;q\210\336\216\337\312!\210 @A\211\203B\nA:\203!\nA@\316=\203!\340\nAA!\341!@\2119\342\230\203\371\3439\344:\345\346\n@\347\350\3519\345\352\261\f\210\353!\203\354!\210db\210\345c\210\202;\344:\345\346\n@\355\nA\2036\356\nA\f\"\2027\357\345\261\210 A\211\202\315\344:\360\261\210\361 .B\202V\362\363 \364#-\207" [form bufs buf w3m-cookie-p coding plist 5 3 2 "about://cookie/" nil w3m-form-get-coding-system plist-get :value file append mapcar #[(x) " \nBB\207" [number name x] 3] sort car-less-than-car 4 multipart/form-data apply format "--_%d_%d_%d" current-time "multipart/form-data; boundary=" generate-new-buffer " *temp*" t #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] set-buffer-multibyte expand-file-name w3m-local-file-type "unknown" "application/octet-stream" "--" " \n" "Content-Disposition: form-data; name=\"" "\"; filename=\"" "\" \n" "Content-Type: " "Content-Transfer-Encoding: binary \n \n" file-exists-p insert-file-contents-literally "\" \n \n" encode-coding-string #2="" "-- \n" buffer-string mapconcat #[(elem) "A\303\304\305@ \306#\305A;\203A\202\307 \n\205!@\310\232?##\207" [elem coding w3m-cookie-p format "%s=%s" w3m-url-encode-string t #2# "search"] 8] "&" number pair name value type boundary #1#] 14]) #@64 Resume content of all forms in the current buffer using FORMS. (defalias 'w3m-form-resume #[(forms) "\205\231@\306=\203A\212eb\210\307\310 \203j\311`\312\"\211\203f\313\314\n\"\203f\315\316\317\n\"!8\315\316\317\n\"!8\316\320\n\"\316\321\n\"\315\316\322\n\"!,-\211.\203e,\323\230\204a,\324\230\203m\325-\f\326 C$\210\202e,\327\230\204e,\330\230\204e,\331\230\203\306\332\333\211.\334H\f;\203\224\335\f!\202\225\f\"\326\"A\336\"\210.-=\204e\325-\f\326 \333\211.\334H\f;\203\273\335\f!\202\274\f\"\326\"AB$\210\202e,\337\230\203\340.\f #\211/\203\355\332/\322\311`\341\"8\230\203\352\342\202\353\343!\210.-=\204\376\344-\f /$\210)\202e,\345\230\203P\333\211.\334H\f;\203\335\f!\202\f\"\326\"A\211/\2039\332\322\311`\341\"8/\235\2036\342\2027\343!\210.-=\204L\325-\f\326 /B$\210)\202e,\346\230\203\235\333\211.\334H\f;\203h\335\f!\202i\f\"\326\"A\2110:\203\2060@\203\206\332\3470@0A\"A!\210.-=\204\231\325-\f\326 0B$\210)\202e,\350\230\203\351\320\311`\341\"8\333\211.\334H\f;\203\273\335\f!\202\274\f\"\326\"A/\2111\351V\203\3221/B B.-=\204\345\325-\f\326 /B$\210*\202e,\352\230\203/\333\211.\334H\f;\203\335\f!\202\f\"\326\"A\211/\203/:\203\332/A!\210.-=\204+\325-\f\326 /B$\210)\202e\333\211.\334H\f;\203@\335\f!\202A\f\"\326\"A\211/;\203Q\332/!\210.-=\204d\325-\f\326 /B$\210)-)\2022?\205\230 \3073\2114\205\2274@\2113A\203\215\3533@3A\"\2104A\2114\204z\307**\207" [forms textareas fid w3m-current-forms id name t nil w3m-form-goto-next-field get-text-property w3m-form-field-id string-match "fid=\$[^/]+\$/type=\$[^/]+\$/name=\$[^/]*\$/id=\$.*\$\\'" string-to-number match-string 1 2 3 4 "submit" "image" w3m-form-put-property :value "reset" "hidden" "password" w3m-form-replace plist-get 5 intern invisible "radio" w3m-form-get-by-name w3m-action "*" " " w3m-form-put-by-name "checkbox" "select" assoc "textarea" 0 "file" w3m-form-textarea-replace type cform form value selects hseq w3m-form-treat-textarea-size textarea --dolist-tail--] 11 (#$ . 10359)]) #@60 Process half-dumped data and fontify forms in this buffer. (defalias 'w3m-fontify-forms #[nil "\301@\302=\205\fA\211!\207" [w3m-current-forms w3m-form-parse-and-fontify t] 3 (#$ . 12488)]) #@35 Unquote form attribute of w3mmee. (defalias 'w3m-form-mee-attr-unquote '(macro . #[(x) "\300\207" [(let (attr) (when (eq (car x) 84) (setq x (cdr x)) (while (and x (not (eq (car x) 0))) (setq attr (concat attr (char-to-string (car x)))) (setq x (cdr x)))) attr)] 1 (#$ . 12687)])) #@36 Decode form information of w3mmee. (defalias 'w3m-form-mee-new #[(x) "\306 \"\307\310\"\262\310\211\211\211\211\211@\311\245\211\312\267\2025\313\2026\314\2026\315\2026\316\2026\310)@\311\246\211\317\267\202M\320\202N\321\202N\310)A\322\310 @\323=\203}A\211\203}@\324=\204} \325@!P A\211\204f )!\"A\326\"\235\203\275\310 @\323=\203\266A\211\203\266@\324=\204\266 \325@!P A\211\204\237 )\202\326@\211#\327\267\202\323\330\202\324\331\202\324\332\202\324\310)A\310 @\323=\203A\211\203@\324=\204 \325@!P A\211\204\352 )A\310 @\323=\2030A\211\2030@\324=\2040 \325@!P A\211\204 )\333 \310\f\205?\fC%.\207" [x w3m-current-coding-system name target charset action w3m-url-decode-string append nil 16 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 37 1 41 2 45 3 49)) "get" "post" "internal" "head" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 69 1 73)) application/x-www-form-urlencoded multipart/form-data w3m-form-normalize-action 84 0 char-to-string "lang=many" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (101 199 115 203 110 207)) "euc-jp" "shift-jis" "iso-2022-7bit" w3m-form-new enctype method #1=#:val #2=#:val attr w3m-current-url w3m-compile-options #3=#:val] 7 (#$ . 12974)]) #@43 Decode select form information of w3mmee. (defalias 'w3m-form-mee-select-value #[(value) "\306 \"\307\310\"\262\310\211\211\211\211 \211\203\217@\311=\310\211 A\211@\312=\204E \313@!P A\211\202, \203R\314 \" A\211@\312=\204o \313@!PA\211\202X \203y\314 \"\f\203 B\nBA\211\204\n\237.B\207" [value w3m-current-coding-system candidates selected s val w3m-url-decode-string append nil 1 0 char-to-string decode-coding-string label clist w3m-output-coding-system] 7 (#$ . 14408)]) #@47 Process and fontify textareas in this buffer. (defalias 'w3m-fontify-textareas #[nil "\205L\212eb\210\306\307\211\211\211\211\211\211\211\211\211\211\211\211\211\2113456789:;<=\310 \205J\311`\312\";\311`\313\";\2033\314\315;\"\2033\316\317\320;\"!>8<\317\321;\"8\317\322;\"7\316\317\323;\"!8\324\230\2033\311`\325\"6\311`\326\"3\311`\327\"\311`\330\"iS5\331`\326\"b\210i4\2126S\332?@?@W\203$\333y\210\212\3345!\210\335\320!\210\336c\210`:\3344!\210\335\320!\210`9\337c\210)\340:9 \203\335\341\202\336\342#\210\343:9\312\344\345;87%\346\347<3E\350\351<7\352<E\353BBBBB\3263\330 \354\3557\313\n\327 \257#\210?T\211?\202\247*\356\211<\357H;\2036\360!\2027\"\361\"A\211\203F\3623\f\"\210)\2023.\207" [w3m-form-treat-textarea-size readonly filename id text abs-hseq t nil w3m-form-goto-next-field get-text-property w3m-form-field-id w3m-form-file-name string-match "fid=\$[^/]+\$/type=\$[^/]+\$/name=\$[^/]*\$/id=\$.*\$\\'" string-to-number match-string 1 2 3 4 "textarea" w3m-textarea-rows w3m-form-hseq w3m-form-readonly w3m-anchor-sequence next-single-property-change 0 -1 move-to-column delete-char "[" "]" w3m-add-face-property w3m-form-inactive w3m-form add-text-properties format "fid=%s/type=%s/name=%s/id=%d" w3m-action w3m-form-input-textarea w3m-submit w3m-form-submit w3m-form-get (w3m-form-new-session w3m-form-download) w3m-form-id w3m-form-name plist-get 5 intern :value w3m-form-textarea-replace hseq end-column start-column rows name type end start fid form inhibit-read-only w3m-current-forms i --dotimes-limit--] 22 (#$ . 14958)]) #@212 Parse forms of the half-dumped data in this buffer and fontify them. Result form structure is saved to the local variable `w3m-current-forms'. If optional REUSE-FORMS is non-nil, reuse it as `w3m-current-form'. (defalias 'w3m-form-parse-and-fontify #[(&optional reuse-forms) "\306\307\310\211\211\211\211\211\211\211\211\211\211\211@ABCDEFG\310\211HIeb\210J\311=\203:\312\313!\202=\312\314!\203\330\n\315\316!\227E\316\225b\210\307\225DEJ\311=\203[\317\202\\\320\230\203BJ\311=\203\265\310K\321\310w\210\322\323!\203\213\324\325\326!\206\204\325\327!\206\204\325\316!!\211K\202\224\322\330!\204\227\322\331!\203\242\307\225b\210\321\310w\210\202n\332\310w\210\310u\210 \333K!C\244)\202-\310\211\211\211\211\211LMNOPQ\321\310w\210\322\334!\203\350\324\325\326!\206\341\325\327!\206\341\325\316!!\211Q\202\210\322\335!\203\324\325\326!\206\376\325\327!\206\376\325\316!!\227\211P\202\210\322\336!\203%\337\324\325\326!\206\325\327!\206\325\316!!!\211O\202\210\322\340!\203C\324\325\326!\206;\325\327!\206;\325\316!!\227\211N\202\210\322\341!\203a\324\325\326!\206Y\325\327!\206Y\325\316!!\227\211M\202\210\322\342!\203\324\325\326!\206w\325\327!\206w\325\316!!\227\211L\202\210\322\330!\204\213\322\331!\203\226\307\225b\210\321\310w\210\202\313\332\310w\210\310u\210Q\203\263\343\344Q!L\205\260\345L!\"QO \236A\211\203\nR\346RP\206\311\347\"\210)\n\211S\326\350QT\"I\210)\n\211U\327N\205\354\351N\352\"\211NI\210)\n\211V\353M\203\354M!\202\355I\210)\202=\356P\206\347\350QW\206T\"\310N\205'\351N\352\"\211NM\2033\354M!\2024\355%O\nB B.\202-E\357\230\203>\310\211XY\321\310w\210\322\360!\203p\324\325\326!\206i\325\327!\206i\325\316!!\211Y\202y\322\330!\204|\322\331!\203\207\307\225b\210\321\310w\210\202S\332\310w\210\310u\210\312\361!\203\362\316\224f\363\"\204\316\225b\210\310\211Z[\321\310w\210\322\364!\203\310\324\325\326!\206\301\325\327!\206\301\325\316!!\211[\202\356\322\365!\203\345\324\325\326!\206\336\325\327!\206\336\325\316!!\211Z\202\356\322\330!\204\361\322\331!\203\374\307\225b\210\321\310w\210\202\253\332\310w\210\310u\210[\203[Z\206[BXBX*\202\216\f\204$\356\357\366\"X\203:\367\fFT\211F\370YX\237B$\210*\202-E\371\230\203\311\310\\\321\310w\210\322\372!\203i\324\325\326!\206b\325\327!\206b\325\316!!\211\\\202r\322\330!\204u\322\331!\203\200\307\225b\210\321\310w\210\202L\332\310w\210\310u\210\312\373!\210\\\204\224\203\305\f\204\235\356\357\366\"\\\204\245\\\203\253\310\374DC\375#\210\376D\307\224\377\201z\fF\\FD#\210)\202-E\201{\230\203\335\201|\201}!\210\202-E\201~\230\203-\310\211\211\211\211\211\211\211\211\211\211\211\211\211\211]Y^_`abcdefghiO\321\310w\210\322\336!\2036\337\324\325\326!\206.\325\327!\206.\325\316!!!\211O\202\340\322\201!\203V\324\325\326!\206N\325\327!\206N\325\316!!\227\211i\202\340\322\201\200!\203w\337\324\325\326!\206o\325\327!\206o\325\316!!!\211h\202\340\322\201\201!\203\230\337\324\325\326!\206\220\325\327!\206\220\325\316!!!\211g\202\340\322\201\202!\203\271\337\324\325\326!\206\261\325\327!\206\261\325\316!!!\211f\202\340\322\201\203!\203\332\337\324\325\326!\206\322\325\327!\206\322\325\316!!!\211e\202\340\322\201\204!\203\373\337\324\325\326!\206\363\325\327!\206\363\325\316!!!\211d\202\340\322\201\205!\203\337\324\325\326!\206\325\327!\206\325\316!!!\211c\202\340\322\201\206!\203=\337\324\325\326!\2065\325\327!\2065\325\316!!!\211b\202\340\322\201\207!\203^\337\324\325\326!\206V\325\327!\206V\325\316!!!\211a\202\340\322\201\210!\203m\306\211`\202\340\322\201\211!\203|\306\211_\202\340\322\201\212!\203\233\324\325\326!\206\224\325\327!\206\224\325\316!!\211^\202\340\322\360!\203\270\324\325\326!\206\261\325\327!\206\261\325\316!!\211Y\202\340\322\201\213!\203\327\324\325\326!\206\320\325\327!\206\320\325\316!!\211]\202\340\322\330!\204\343\322\331!\203\356\307\225b\210\321\310w\210\202\332\310w\210\310u\210]\203\201\214]!]\212\201\215\201\216!\210\307\224C)f\204\307\202\201\217f!_\203*\201\220\202+\375jkOkB\232\204DFTFOkBJ\311=\203SO 8\202YO \236A\n\204iO\356\310\211\"\211B Bi\201\221\230\203\201Y\201\222\230\203\201]\202\323\ni\201\223\230\204\223i\201\224\230\203\360^\201\225\230\204\323\n\201\226DC\201\227\201\230\201\231OiYF%\377\201\232\nFY]\201\233BBBBB\201\234\201\232\nFY\201\235\nFE\201\236BBBBB\201\237k\257_$\210\202\323\ni\201\240\230\203&\201\226DC\201\227\201\230\201\231OiYF%\377\201\241\nD\201\237k\257_$\210\202\323\ni\201\242\230\203\363J\311=\203Q\367\nF\370Y\201\243\201\244]l\"m\"B$\210\202ad\nFY_\257ABAT\203\210\201\245\201\246T\201\230\201\231OiYF%\"n\"\211HBH\374DCj#\210\376DC\201\227\201\230\201\231OiYF%\377\201\247\nfE\201\234\201\232\nFY\201\235\nFE\201\250BBBBB\201\251b\201\252f\201\237k\201\253F\201\254Y\201\255 \201\256_\257#\210\202\323\ni\201\257\230\203\201J\311=\203]\203\323\n\367\nF\370Y\201\260]!B$\210\202,e\nFYF@B\211@\203\323\n\374DCj#\210\376DC\201\227\201\230\201\231OiYF%\377\201\261\nFYF\201\234\201\232\nFY\201\235\nFE\201\262BBBBB\201\237k\201\256_\257\n#\210\202\323\ni\201\263\230\203\337\374DCj#\210\376DC\201\227\201\230\201\231OiYF%\377\201\264\nFYF\201\234\201\232\nFY\201\235\nFE\201\265BBBBB\201\237k\201\256_\257\n#\210\202\323\ni\201\266\230\203x \201\267\211\n\201\270HF;\203\376\354F!\202 F\"\370\"Ao\367\nF\370Y`\203 ]oB\202 oB$\210)\374DCj#\210\376DC\201\227\201\230\201\231OiYF%\377\201\271\nFY]\257\201\234\201\232\nFY\201\235\nFE\201\272BBBBB\201\237k\201\256_\257\n#\210\202\323\ni\201\273\230\203\354 `\203\222 \201\274\nFY]$\210\374DCj#\210\376DC\201\227\201\230\201\231OiYF%\377\201\275\nFY]\257\201\234\201\232\nFY\201\276\nFYF\201\277BBBBB\201\237k\201\256_\257\n#\210\202\323\ni\201\300\230\203M\n\374DCj#\210\376DC\201\227\201\230\201\231OiYF%\377\201\301\nFY]\257\201\234\201\232\nFY\201\235\nFE\201\302BBBBB\201\237k\201\256_\257\n#\210\202\323\n\367\nF\370Y]\206u\n\201\267\211\n\201\270HF;\203o\n\354F!\202q\nF\"\370\"AB$\210\374DCj#\210\376DC\201\227\201\230\201\231OiYF%\377\201\303\nFYihg]\257\201\234\201\232\nFY\201\235\nFE\201\304BBBBB\201\237k\201\256_\257\n#\210.\202-\201\215\201\305\310\306#\203 \307\224Bp\204 \201\306\201\307\310\306#\203 FTF\315\316!\201\257\230\2037\f\310e\321\310w\210\322\201\203!\2030\337\324\325\326!\206(\325\327!\206(\325\316!!!\211e\2029\322\330!\204<\322\331!\203G\307\225b\210\321\310w\210\202\332\310w\210\310u\210e@\236A\310\211Xq\211r\2033\f\312\201\310!\203\f\362\316\224f\363\"\204\f\316\225b\210\310\211\211st]\321\310w\210\322\201\213!\203\245\201\214\324\325\326!\206\235\325\327!\206\235\325\316!!!\211]\202\340\322\201\311!\203\310\201\214\324\325\326!\206\300\325\327!\206\300\325\316!!!\211t\202\340\322\201\312!\203\327\306\211s\202\340\322\330!\204\343\322\331!\203\356\307\225b\210\321\310w\210\202\202\332\310w\210\310u\210]tBXBXs\203\f]q\201\313\310w\210+\202`X\237X\367r@rA@\370\326r8q\206-\fX@@XBB$\210,\202\350\n\315\316!\201\242\230\203\350\n\310d\321\310w\210\322\201\204!\203i\f\337\324\325\326!\206a\f\325\327!\206a\f\325\316!!!\211d\202r\f\322\330!\204u\f\322\331!\203\200\f\307\225b\210\321\310w\210\202H\f\332\310w\210\310u\210\316u\210dA\236Ap\310\211uCv\211w\203\374\f`D\201\314\310w\210\201\315D`\"u\367w@wA@\370\326w8\201\316\201\317\306\"xrxq\210\201\320\216uc\210\201\321 \210eb\210\201\215\201\322\310\306#\203\364\f\201|\201\323!\210\202\335\f\201\324 +B$\210-\202\350\n\201\215\201\325\310\306#\203 B\307\225|\210J\311=\203 \202, \201\326\201\327\201\330 \201\331\"\"y\201\332p\2068 y!.\207" [prev-button filename form mapval maps forms t 0 nil w3mmee w3m-search-tag-1 "<\$/input_alt\\|_f\\|i\\(?:\\(?:mg\\|nput\$_alt\\)\\|map\\)" "<\$/input_alt\\|form_int\\|i\\(?:\\(?:mg\\|nput\$_alt\\)\\|map\\)" match-string 1 "_f" "form_int" " \f\n" looking-at "_x[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" w3m-remove-redundant-spaces match-string-no-properties 2 3 "[A-Za-z]*[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "[^<> \f\n]+" "^>" w3m-form-mee-new "action[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "method[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "fid[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" string-to-number "accept-charset[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "enctype[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "charset[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" w3m-url-transfer-encode-string w3m-decode-anchor-string w3m-charset-to-coding-system w3m-form-set-method "get" w3m-form-normalize-action split-string "," 4 intern application/x-www-form-urlencoded w3m-form-new "map" "name[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "<\$/map\\|area\$" char-equal 47 "href[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "alt[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "." w3m-form-put-property :value "img_alt" "usemap[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "<\$/img_alt\$" w3m-add-face-property w3m-form add-text-properties w3m-action selects textareas internal-start end start tag id case-fold-search w3m-form-textarea-files w3m-form-use-textarea-backup-p w3m-type _x charset enctype accept-charset fid method action #1=#:v #2=#:v w3m-current-url #3=#:v #4=#:v w3m-current-base-url candidates name alt href usemap value no_effect readonly checked top_mergin rows size textareanumber selectnumber hseq maxlength width type face abs-hseq w3m-current-coding-system w3m-output-coding-system w3m-form-textarea-directory cvalue reuse-forms current selectinfo selected label text buffer textareainfo #5=#:temp-buffer w3m-current-forms w3m-form-input-map "/input_alt" replace-match "" "input_alt" "type[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "width[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "maxlength[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "hseq[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "selectnumber[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "textareanumber[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "size[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "rows[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "top_mergin[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "checked\$?:[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)\\)?" "readonly\$?:[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)\\)?" "no_effect[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "value[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" w3m-decode-entities-string search-forward "" abs w3m-form-inactive "hidden" "link" "submit" "image" "true" w3m-form-make-button w3m-form-field-id format "fid=%d/type=%s/name=%s/id=%d" w3m-form-submit (w3m-form-new-session w3m-form-download) w3m-submit w3m-form-get (w3m-form-new-session w3m-form-download) w3m-anchor-sequence "reset" w3m-form-reset "textarea" decode-coding-string w3m-url-decode-string expand-file-name w3m-form-input-textarea-filename w3m-form-input-textarea (w3m-form-new-session w3m-form-download) w3m-textarea-rows w3m-form-hseq w3m-form-id w3m-form-name w3m-form-file-name w3m-form-readonly "select" w3m-form-mee-select-value w3m-form-input-select (w3m-form-new-session w3m-form-download) "password" w3m-form-input-password (w3m-form-new-session w3m-form-download) "checkbox" plist-get 5 w3m-form-input-checkbox (w3m-form-new-session w3m-form-download) "radio" w3m-form-put-by-name w3m-form-input-radio w3m-form-get-by-name (w3m-form-new-session w3m-form-download) "file" w3m-form-input-file (w3m-form-new-session w3m-form-download) w3m-form-input (w3m-form-new-session w3m-form-download) "" re-search-forward "<\$[a-z]+\$_int" "<\$\\(?:/select\\|option\$_int\\)" "label[ \f\n]*=[ \f\n]*\$\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)" "selected\$?:[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\$\"\\|'\$[^']+\$'\\|[^\"'<> \f\n]*\\)\\)?" ">\n" "^<" buffer-substring-no-properties generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#5# buffer-name kill-buffer] 2] w3m-decode-entities " \n" "\n" buffer-string "" mapcar cdr sort car-less-than-car w3m-form-resume] 24 (#$ . 16605)]) (defalias 'w3m-form-replace #[(string &optional invisible) "\306ed\307\310`\307\"$\311\312\307\"{!\313!`\314b\210 \203+\315G\316\"\202;\317\320\321\322\2065\323 \"\324\"\323#\211\315 \311!Z\325]\326\"\261\210`\312`\307\"|\210\327`\n#\210\330\331!\210`b\210-\207" [start width prop p inhibit-read-only invisible text-property-any w3m-action get-text-property string-width next-single-property-change text-properties-at t make-string 46 mapconcat identity split-string truncate-string-to-width "" "\n" 0 32 add-text-properties set-buffer-modified-p nil string] 7]) (defalias 'w3m-form-input #[(form id name type width maxlength value) "\306\211\307H ;\203\310 !\202 \"\311\"A\312`\313\"\203&\314\315\226\n#\202^\212\212\316\226\317P\n\")\320\321H!\322\323\324\"rq\210\325\216 c\210\326\327\211\f#+\205]\330 \311 B$\210\331 !+)\207" [form id fvalue type coding input plist-get 5 intern :value get-text-property w3m-form-readonly w3m-message "READONLY %s: %s" read-from-minibuffer ": " w3m-form-get-coding-system 3 generate-new-buffer " *temp*" t #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] w3m-form-coding-system-accept-region-p nil w3m-form-put-property w3m-form-replace #1# name] 6]) (defalias 'w3m-form-input-password #[(form id name) "\305`\306\"\203\307\310!\207\311\211\312H ;\203\313 !\202 \"\314\"A\212\315\316\n\205)\317\320Q\321\n#)\322 \314\fB$\210\323\324\"*\207" [form id fvalue input name get-text-property w3m-form-readonly message "This input box is read-only." plist-get 5 intern :value read-passwd "PASSWORD" " (default is no change)" ": " nil w3m-form-put-property w3m-form-replace invisible] 6]) (defalias 'w3m-form-input-checkbox #[(form id name value) "\305`\306\"\203\307\310!\207\311\211\312H ;\203\313 !\202 \"\314\"A\n\235\2039\315 \314\f\316\n\"B$\210\317\320!\202G\315 \314\f\nBB$\210\317\321!)\207" [form id fvalue value name get-text-property w3m-form-readonly w3m-message "This form is currently inactive" plist-get 5 intern :value w3m-form-put-property delete w3m-form-replace " " "*"] 8]) (defalias 'w3m-form-field-parse #[(fid) "\205\301\302\"\205\303\304\"\303\305\"\303\306\"\303\307\"F\207" [fid string-match "fid=\$[^/]+\$/type=\$[^/]+\$/name=\$[^/]*\$/id=\$.*\$\\'" match-string 1 2 3 4] 6]) (defalias 'w3m-form-input-radio #[(form id name value) "\306`\307\"\203\310\311!\207\212\312\306`\313\"!\314\211\203X\315b\210\316 \203X\312\306`\313\"! @@\230\203 A@A@\230\203\317 8\3178\230\203\320\n\321\322 8!\317 8\314$\210\323\324!\210\202+\320\n\f $\210\323\325!\207" [cur-fid fid form id name value get-text-property w3m-form-readonly w3m-message "This form is currently inactive" w3m-form-field-parse w3m-form-field-id nil 1 w3m-form-goto-next-field 2 w3m-form-put-by-name string-to-number 3 w3m-form-replace " " "*"] 6]) (defalias 'w3m-form-input-file #[(form id name value) "\304`\305\"\203\306\307!\207\212\310\311\312\211\313H ;\203\314 !\202 \"\315\"AA\206(\316\")\317 \315\320\nBB$\210\321\n!)\207" [form id input name get-text-property w3m-form-readonly w3m-message "This form is currently inactive" read-file-name "File name: " plist-get 5 intern :value "~/" w3m-form-put-property file w3m-form-replace] 7]) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\311\315\304\305\306\313&\207" [custom-declare-variable w3m-form-input-textarea-buffer-lines 10 "Buffer lines for form textarea buffer." :group w3m :type integer w3m-form-input-textarea-mode-hook nil "A hook called after w3m-form-input-textarea-mode." hook w3m-form-input-textarea-set-hook "A Hook called before w3m-form-input-textarea-set."] 8) #@79 Return a list of substrings of TEXT which are separated by newline character. (defalias 'w3m-form-text-chop #[(text) "\205&\303\304\305\306\n#\203\n\303\224O B\303\225\202\n\304O B\237*\207" [text parts start 0 nil string-match "\n"] 4 (#$ . 33826)]) (defalias 'w3m-form-search-textarea #[(hseq direction) "`\305=\203\306\202\f\307\310\311\312\"\203\n\312\"\205B \204<\n\312\"\211\203<\311\312\"\f=\203 \313\211\203$\205Bb+\207" [direction found next-single-property-change-function point hseq forward next-single-property-change previous-single-property-change nil get-text-property w3m-form-hseq t] 4]) (defalias 'w3m-form-textarea-replace #[(hseq string) "\304!`eb\210\305\306\"\203\307\n@\206\310!\210\nA\202 b*\207" [string p chopped hseq w3m-form-text-chop w3m-form-search-textarea forward w3m-form-replace ""] 3]) #@65 Return a list of (ID NAME LINE READONLY) for current text area. (defalias 'w3m-form-textarea-info #[nil "\302`\303\"\304\212\305 \306\"\203T\202\302`\307\"\302`\310\"\302`\311\"F+\207" [lines s get-text-property w3m-form-hseq 1 w3m-form-search-textarea backward w3m-form-id w3m-form-name w3m-form-readonly] 6 (#$ . 34702)]) (defvar w3m-form-input-textarea-map nil) (byte-code "\204\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\301\207" [w3m-form-input-textarea-map make-sparse-keymap define-key "" w3m-form-input-textarea-set "" w3m-form-input-textarea-exit "" "" w3m-form-input-textarea-save] 4) (defvar w3m-form-input-textarea-org-mode-map nil) (byte-code "\204\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\301\207" [w3m-form-input-textarea-org-mode-map make-sparse-keymap define-key "\243c" w3m-form-input-textarea-set "\243q" w3m-form-input-textarea-exit "\243k" "\243s" w3m-form-input-textarea-save] 4) (defalias 'w3m-form-input-textarea-filename #[(url id) "\3061\307 P\310\211\n$\311P0\207\210\312\313\314\315\f\"\2030 \316\211\224O\317Q\316\225\310O\202 \320Q\315\f \"\203N \316\211\224O\317Q \316\225\310O\2025\321Z GW\203a \316\321Z GZO \311Q\322 !+\207" [url id w3m-current-coding-system max-file-path replace file (error) md5 nil ".txt" "" "[\"*/:<>?\\|]" 254 string-match 0 "_" "-" 4 convert-standard-filename] 5]) #@23 Save textarea buffer. (defalias 'w3m-form-input-textarea-save #[(&optional buffer file no-check) "\206p \206\nrq\210\306 \307U\204B\204'\f\310=\205a\311\312!\205a \2040\313 \205a\211\314ed \315\316%*\202a\205a\317 !\203P\320 !\210\317\321 !!\203^\320\321 !!\210\322\315!)\207" [buffer file w3m-form-input-textarea-file w3m-form-use-textarea-backup-p this-command no-check buffer-size 0 w3m-form-input-textarea-save y-or-n-p "Really save this buffer? " w3m-form-coding-system-accept-region-p write-region nil nomsg file-exists-p delete-file make-backup-file-name set-buffer-modified-p w3m-form-textarea-file-coding-system coding-system-for-write buffer-file-coding-system] 6 (#$ . 36152) nil]) #@44 Save and exit from w3m form textarea mode. (defalias 'w3m-form-input-textarea-set #[nil "\306\307!\210\310 p \n\f \311 !\"\312 \205\200\313!\314#\210\315 \2045\316 \210\317!!\210\320!\204N#\321=\205\200\322\323!\202\200\324!\210\325!\210\205\200\205\200b\210\326 \327@\330A@\"B$\210\331 \"\". \207" [w3m-form-input-textarea-hseq w3m-form-input-textarea-form w3m-form-input-textarea-point w3m-form-input-textarea-buffer w3m-form-input-textarea-wincfg w3m-form-input-textarea-file run-hooks w3m-form-input-textarea-set-hook buffer-string nil w3m-form-coding-system-accept-region-p w3m-form-input-textarea-save t one-window-p delete-window kill-buffer buffer-live-p w3m-form-input-textarea-set message "No current w3m buffer" pop-to-buffer set-window-configuration w3m-form-textarea-info w3m-form-put-property :value w3m-form-textarea-replace info file wincfg w3mbuffer point form hseq buffer input this-command] 9 (#$ . 36877) nil]) #@35 Exit from w3m form textarea mode. (defalias 'w3m-form-input-textarea-exit #[nil "p \n\306\f\"\210\307 \204\310 \210\311!\210\312!\2044\313=\205E\314\315!\202E\316!\210\317 !\210\205Eb-\207" [w3m-form-input-textarea-point w3m-form-input-textarea-buffer w3m-form-input-textarea-wincfg w3m-form-input-textarea-file file wincfg w3m-form-input-textarea-save one-window-p delete-window kill-buffer buffer-live-p w3m-form-input-textarea-exit message "No current w3m buffer" pop-to-buffer set-window-configuration w3mbuffer point buffer this-command] 5 (#$ . 37866) nil]) (byte-code "\303\236\204\f\303\304DB\303 \236\204\303\nB B\303\207" [minor-mode-alist minor-mode-map-alist w3m-form-input-textarea-map w3m-form-input-textarea-mode " w3m form textarea"] 2) #@301 \ Minor mode to edit form textareas of w3m. \[w3m-form-input-textarea-set] Set the value and exit from this textarea. \[w3m-form-input-textarea-exit] Exit from this textarea without setting the value. \[w3m-form-input-textarea-save] Save editing data in this textarea. (defalias 'w3m-form-input-textarea-mode #[(&optional arg) "\203\f\304!\305V\202 ?\211\203\306\307!\210\n\310=\205#\311\312\301B\"\207" [arg w3m-form-input-textarea-mode major-mode w3m-form-input-textarea-org-mode-map prefix-numeric-value 0 run-hooks w3m-form-input-textarea-mode-hook org-mode add-to-list minor-mode-overriding-map-alist] 4 (#$ . 38663) "P"]) #@49 Use org-mode for editing textareas when non-nil (defvar w3m-form-textarea-use-org-mode-p nil (#$ . 39338)) #@187 Toggle editing textareas in Org-mode. When off, textareas are edited in text-mode, otherwise in org-mode. With prefix argument ARG, use org-mode if ARG is positive, otherwise text-mode. (defalias 'w3m-form-textarea-toggle-major-mode #[(&optional arg) "\204 ?\202\302!\303V\304\305 \203\306\202\307\"\207" [arg w3m-form-textarea-use-org-mode-p prefix-numeric-value 0 message "Edit textarea in Org-mode %s" "enabled" "disabled"] 3 (#$ . 39452) "P"]) (byte-code "\300\301\302\303\304$\210\305\306\307\"\207" [autoload outline-show-all "outline" nil t add-hook w3m-form-input-textarea-mode-hook #[nil "\301=\205\302 \207" [major-mode org-mode outline-show-all] 2]] 5) (defalias 'w3m-form-input-textarea-mode-setup #[(caller-buffer readonly) "\203\306\202t \203\307\202t\310\n!\203\n\206t\311!\203srq\210\312 \313\216\3142o\n\315\211#\205m#@\211@;\203I\316 @$\"\202Z\310 @!\203V @ \202Z\317 @!\203c\320\314 A\"\210#A\211#\2046\315*0+\206t\321 \210\203\336\322%!&\323\324!\210\306&BC\325\326'\"\325\327'\"\244\315(\211#\203\265#@(\330&(\327#\210#A\211#\204\237*\331\315)\211#\203\326#@)\332)\327&#\210#A\211#\204\300*\333\334\335!!)\207\336\337!\210\333\340\203\354\341\202\357\334\342!\"\207" [readonly w3m-form-textarea-use-org-mode-p w3m-form-textarea-edit-mode caller-buffer save-match-data-internal elem view-mode org-mode functionp buffer-live-p match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] found-mode nil string-match eval throw text-mode copy-keymap make-local-variable minor-mode-map-alist where-is-internal w3m-form-input-textarea-set w3m-form-input-textarea-exit define-key (View-exit View-exit-and-edit View-kill-and-leave View-leave View-quit View-quit-all) substitute-key-definition w3m-message substitute-command-keys "READONLY TEXT; type `\\\\[w3m-form-input-textarea-exit]' to quit textarea" w3m-form-input-textarea-mode 1 "%s" "This text is not editable because the form has disabled or readonly attribute" "Type `\\\\[w3m-form-input-textarea-set]' to exit textarea, or type `\\\\[w3m-form-input-textarea-exit]' to quit textarea" --dolist-tail-- w3m-current-url view-mode-map keymap w3m-form-input-textarea-map key command] 5]) (defalias 'w3m-form-input-textarea #[(form hseq) "\306 \307\211 \310H@;\203\311@!\202@\"\312\"A\313 \314 p`@\315!AB]TZC\316`\317\"D\320 \321H!E\3218\211F?\205L\322 G\323HGG\203{\324\325\326\"\210\327\330I!!J\331J!\203u\332J!\204z\333J!\210)\3342\275r\335 \323H\211K\203\270K@\211Hq\210L\203\257M =\203\257ND\230\203\257\336\334\337HB\"\210KA\211K\204\213+\340\341!0\211H:\204{G\2036\331D!\2036\342D!\2036\340\343\337\"OrOq\210\344\216P\211QR\345D!\210*\346 S\347\nS\"\2045\314 T\350\216\351\313 p\"\210\352\353S\354SG\n\354\nG&!b\210\3551%\356\357!0\202.\210\360H!\210\361\362!*\2035S,rHq\210\nc\210\363\323!\210F\203N\363\323!\210\337Ueb\210\3648Sy\210\365 F\"\210 VWX M@Y\fZDNE[G)H:\203\223\366HA!\203\223\367\366HA!!\202\364\370\371H:\203\241HA\202\243H!!\204\340\3721\315\\\203\267\373!\202\310\374C\354V\203\305C\202\307A\"0\210\202\333\210\375 \210\374\315!BZ\"\210\367\376 !\210\323]\377H:\203\360HA\202\362H!).\f\207" [info form value cur-win wincfg w3mbuffer w3m-form-textarea-info plist-get 5 intern :value selected-window current-window-configuration window-height get-text-property w3m-form-file-name w3m-form-get-coding-system 3 w3m-form-use-textarea-backup-p nil add-hook kill-emacs-hook w3m-form-textarea-file-cleanup file-chase-links expand-file-name file-exists-p file-directory-p make-directory detect-buffer buffer-list throw t generate-new-buffer "*w3m form textarea*" file-readable-p " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] insert-file-contents buffer-string w3m-form-textarea-same-check #[nil "\301!\207" [#2=#:wconfig set-window-configuration] 2] set-window-buffer abs compare-strings 0 (quit) y-or-n-p "The saved text for this form exists. Use it? " kill-buffer error "Abort textarea editing" set-buffer-modified-p 2 w3m-form-input-textarea-mode-setup get-buffer-window select-window same-window-p buffer-name (error) split-window-sensibly split-window delete-other-windows next-window switch-to-buffer point window-min-height w3m-form-input-textarea-buffer-lines size file coding readonly backup-p buffer w3m-form-textarea-directory dir --dolist-tail-- w3m-form-input-textarea-mode w3m-form-input-textarea-buffer w3m-form-input-textarea-file #1# w3m-form-textarea-file-coding-system coding-system-for-read buffer-file-coding-system before #2# buffer-read-only w3m-form-input-textarea-form hseq w3m-form-input-textarea-hseq w3m-form-input-textarea-point w3m-form-input-textarea-wincfg w3m-form-input-textarea-coding-system w3m-form-textarea-use-org-mode-p pop-up-windows] 9]) (defalias 'w3m-form-use-textarea-backup-p #[nil "\205=p \3062<r\307 \310\211\2039 @\211=\203$\311\306\312\"\210\fq\210 \n\230\2032\311\306\310\"\210 A\211\204+\3120*\207" [w3m-form-use-textarea-backup w3m-current-url curl cbuf buf --dolist-tail-- loop w3m-list-buffers nil throw t] 4]) #@50 Compare STR1 and STR2 without tailed whitespace. (defalias 'w3m-form-textarea-same-check #[(str1 str2) "\302\303\"\203 \304\211\224O\302\303 \"\203 \304\211\224O \230\207" [str1 str2 string-match "[ \n ]+\\'" 0] 3 (#$ . 44788)]) #@28 Remove all textarea files. (defalias 'w3m-form-textarea-file-cleanup #[nil "\306\307\310\"\210\311\312!!\313\314\211\211 \205\202\315 !\205\202 \250\203J\316\317 !\320\f@\fA@\321\f8\322\f8 Z\323\f8\324\f8\325\f8\326\f8\327\f8& \330 \331\332\333$\211A\242\211\205\202\334\n!\203Q\f\313=\203n\335\n!\210\202Q\324\336\n!8\337\f \"\203Q\335\n!\210\202Q-\207" [w3m-form-textarea-directory time file files checktime dir remove-hook kill-emacs-hook w3m-form-textarea-file-cleanup file-chase-links expand-file-name t nil file-directory-p decode-time current-time encode-time 2 3 4 5 6 7 8 directory-files full "[^.]" nosort file-writable-p delete-file file-attributes w3m-time-newer-p w3m-form-textarea-file-expire-date] 11 (#$ . 45032)]) #@32 Remove used files of textarea. (defalias 'w3m-form-textarea-files-remove #[nil "\303 \211A\242\211\2059\n\235\203\304!\203\305!\203\306!\210\307!\304!\203\305!\203\306!\210\202)\207" [file w3m-form-textarea-post-files w3m-form-textarea-files nil file-exists-p file-writable-p delete-file make-backup-file-name] 2 (#$ . 45794)]) #@42 Change parent w3m buffer in form buffers (defalias 'w3m-form-set-number #[(w3mbuf newname) "r\306!\211\205X\307 \310\211\205W@\211q\210\f\203( =\203( \202O\f\311=\203= =\203= \202O\f\312=\203O=\203O A\211\204\310**\207" [newname newbuff buffer --dolist-tail-- w3m-form-input-textarea-mode w3m-form-input-textarea-buffer get-buffer buffer-list nil w3m-form-input-select-mode w3m-form-input-map-mode w3mbuf major-mode w3m-form-input-select-buffer w3m-form-input-map-buffer] 3 (#$ . 46153)]) #@19 Kill form buffers (defalias 'w3m-form-kill-buffer #[(w3mbuf) "r\306 \307\211\205K @\211q\210\n\203 \f=\203 \310 \210\202C \311=\2033 \f=\2033\312 \210\202C \313=\203C\f=\203C\314 \210 A\211\204\n\307+\207" [buffer --dolist-tail-- w3m-form-input-textarea-mode w3m-form-input-textarea-buffer w3mbuf major-mode buffer-list nil w3m-form-input-textarea-exit w3m-form-input-select-mode w3m-form-input-select-exit w3m-form-input-map-mode w3m-form-input-map-exit w3m-form-input-select-buffer w3m-form-input-map-buffer] 3 (#$ . 46684)]) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\311\315\304\305\306\313&\210\300\316\317\320\304\305\306\321&\207" [custom-declare-variable w3m-form-input-select-buffer-lines 10 "Buffer lines for form select buffer." :group w3m :type integer w3m-form-input-select-mode-hook nil "A hook called after w3m-form-input-select-mode." hook w3m-form-input-select-set-hook "A Hook called before w3m-form-input-select-set." w3m-form-mouse-face 'highlight "Mouse face to highlight selected value." face] 8) (defvar w3m-form-input-select-keymap nil) (byte-code "\204O\301 \302\303\304#\210\302\305\304#\210\302\305\304#\210\302\306\307#\210\302\310\307#\210\302\311\307#\210\302\312\307#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\301\207" [w3m-form-input-select-keymap make-sparse-keymap define-key "" w3m-form-input-select-set " " "" w3m-form-input-select-exit "" "q" "" "h" backward-char "j" next-line "k" previous-line "l" forward-char [mouse-2] w3m-form-input-select-set-mouse] 4) #@53 Save and exit from w3m form select mode with mouse. (defalias 'w3m-form-input-select-set-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point w3m-form-input-select-set] 2 (#$ . 48329) "e"]) #@42 Save and exit from w3m form select mode. (defalias 'w3m-form-input-select-set #[nil "\306\307!\210\310`\311\"p\n\f\312\240\210\313 \2043\314 \210\315 !\210\316!\205j\317!\210\320!\210\205j\205jb\210\321 \322B$\210\323\324A\"A!. \207" [cur buffer w3m-form-input-select-name name w3m-form-input-select-id id run-hooks w3m-form-input-select-set-hook get-text-property w3m-form-select-value nil one-window-p delete-window kill-buffer buffer-live-p pop-to-buffer set-window-configuration w3m-form-put-property :value w3m-form-replace assoc w3m-form-input-select-form form w3m-form-input-select-point point w3m-form-input-select-buffer w3mbuffer w3m-form-input-select-wincfg wincfg input w3m-form-input-select-candidates] 6 (#$ . 48533) nil]) #@33 Exit from w3m form select mode. (defalias 'w3m-form-input-select-exit #[nil "p \f\306 \204\307 \210\310!\210\311\f!\205*\312\f!\210\313\f!\210\n\205*\nb,\207" [buffer w3m-form-input-select-point point w3m-form-input-select-buffer w3mbuffer w3m-form-input-select-wincfg one-window-p delete-window kill-buffer buffer-live-p pop-to-buffer set-window-configuration wincfg] 2 (#$ . 49329) nil]) #@289 \ Major mode for w3m form select. \[w3m-form-input-select-set] Save and exit from w3m form select mode. \[w3m-form-input-select-exit] Exit from w3m form select mode. \[w3m-form-input-select-set-mouse] Save and exit from w3m form select mode with mouse. (defalias 'w3m-form-input-select-mode #[nil "\304\305\306\307!\210\310\311!\207" [mode-name major-mode buffer-read-only w3m-form-input-select-keymap "w3m form select" w3m-form-input-select-mode t use-local-map run-mode-hooks w3m-form-input-select-mode-hook] 2 (#$ . 49738)]) (defalias 'w3m-form-input-select #[(form id name) "\306`\307\"\203\310\311!\207\312\211\313H ;\203\314 !\202 \"\315\"A\316 \317 \320\321 + $,p-`.\322!/ZS\322!/0T]Z^1\323\21123\3234\3242\226r\325 \3232\2115\203\2215@\2112q\2106\203\2106-=\203\2107,\230\203\210\326\324\3272B\"\2105A\2115\204c+\330\331!0\2112:\204-r2q\2108+9 :-6.;\n<\f=,7\n\203\n@3\nA\211\323>\2115\2035@>`4>AG\332U\203\350\333\202\353>Ac\210\3344`\335>@\336?F#\210\337c\2105A\2115\204\323*eb\210m\204\"3\306`\335\"\232\204\"\340`\335\"b\210\202\341\323!\210\342 \210\343 \210)2:\203E\3442A!\203E\345\3442A!!\202\206\3461_\3471\332V\203W1\202Y/\"0\210\202m\210\350 \210\347\322!0Z\"\210\345\351 !\210\323@\3522:\203\2022A\202\2042!).\n\207" [form id value cur-win wincfg w3m-current-url get-text-property w3m-form-readonly w3m-message "This form is currently inactive" plist-get 5 intern :value selected-window current-window-configuration format "%s:%s:%d" window-height nil detect-buffer buffer-list throw t generate-new-buffer "*w3m form select*" 0 " " add-text-properties w3m-form-select-value mouse-face "\n" next-single-property-change set-buffer-modified-p beginning-of-line w3m-form-input-select-mode get-buffer-window select-window (error) split-window delete-other-windows next-window switch-to-buffer name urlid w3mbuffer point window-min-height w3m-form-input-select-buffer-lines size buffer cur pos --dolist-tail-- w3m-form-input-select-buffer w3m-form-input-select-urlid w3m-form-input-select-form w3m-form-input-select-name w3m-form-input-select-id w3m-form-input-select-point w3m-form-input-select-candidates w3m-form-input-select-wincfg candidate w3m-form-mouse-face pop-up-windows] 8]) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\311\315\304\305\306\313&\207" [custom-declare-variable w3m-form-input-map-buffer-lines 10 "Buffer lines for form select map buffer." :group w3m :type integer w3m-form-input-map-mode-hook nil "A hook called after w3m-form-input-map-mode." hook w3m-form-input-map-set-hook "A Hook called before w3m-form-input-map-set."] 8) (defvar w3m-form-input-map-keymap nil) (byte-code "\204O\301 \302\303\304#\210\302\305\304#\210\302\305\304#\210\302\306\307#\210\302\310\307#\210\302\311\307#\210\302\312\307#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\301\207" [w3m-form-input-map-keymap make-sparse-keymap define-key "" w3m-form-input-map-set " " "" w3m-form-input-map-exit "" "q" "" "h" backward-char "j" next-line "k" previous-line "l" forward-char [mouse-2] w3m-form-input-map-set-mouse] 4) #@57 Save and exit from w3m form select map mode with mouse. (defalias 'w3m-form-input-map-set-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point w3m-form-input-map-set] 2 (#$ . 53038) "e"]) #@46 Save and exit from w3m form select map mode. (defalias 'w3m-form-input-map-set #[nil "\306\307!\210\310`\311\"p\n\f\312 \204\313 \210\314 !\210\315!\205;\316!\210\317 !\210\2036b\210\320\321!!-\207" [map buffer w3m-form-input-map-buffer w3mbuffer w3m-form-input-map-wincfg wincfg run-hooks w3m-form-input-map-set-hook get-text-property w3m-form-map-value one-window-p delete-window kill-buffer buffer-live-p pop-to-buffer set-window-configuration w3m-goto-url w3m-expand-url w3m-form-input-map-point point] 3 (#$ . 53240) nil]) #@37 Exit from w3m form select map mode. (defalias 'w3m-form-input-map-exit #[nil "p \f\306 \204\307 \210\310!\210\311\n!\205+\312\n!\210\313\f!\210\f\205+\fb,\207" [buffer w3m-form-input-map-buffer w3mbuffer w3m-form-input-map-wincfg wincfg w3m-form-input-map-point one-window-p delete-window kill-buffer buffer-live-p pop-to-buffer set-window-configuration point] 2 (#$ . 53793) nil]) #@288 \ Major mode for w3m map select. \[w3m-form-input-map-set] Save and exit from w3m form select map mode. \[w3m-form-input-map-exit] Exit from w3m form select map mode. \[w3m-form-input-map-set-mouse] Save and exit from w3m form select map mode with mouse. (defalias 'w3m-form-input-map-mode #[nil "\304\305\306\307!\210\310\311!\207" [mode-name major-mode buffer-read-only w3m-form-input-map-keymap "w3m map select" w3m-form-input-map-mode t use-local-map run-mode-hooks w3m-form-input-map-mode-hook] 2 (#$ . 54195)]) (defalias 'w3m-form-input-map #[(form id name) "\306 \n#\307\310\f\n#\311 \"\312 #p$`%\313\"!&ZS\313\"!&'T]Z^(\314\211)*\3152xr\316 \314)\211+\203s+@\211)q\210,\203j,$=\203j- \230\203j\317\315\320)B\"\210+A\211+\204F+\321\322!0\211):\204\346r)q\210$,#.%/ -\203\330\3140\211+\203\327+@0`*0AG\323U\203\2700@\202\2730Ac\210\324*`\3250@\3261F#\210\327c\210+A\211+\204\241*eb\210\330\314!\210\331 \210\332 \210)):\203\376\333)A!\203\376\334\333)A!!\202B\3351\336\"(\323V\203(\202&\"0\210\202)\210\337 \210\336\"\313\"!'Z\"\210\334\340 !\210\3142\341):\203>)A\202@)!). \207" [form id name value w3m-current-url urlname w3m-form-get-by-name format "%s:%s" selected-window current-window-configuration window-height nil detect-buffer buffer-list throw t generate-new-buffer "*w3m map select*" 0 add-text-properties w3m-form-map-value mouse-face "\n" set-buffer-modified-p beginning-of-line w3m-form-input-map-mode get-buffer-window select-window (error) split-window delete-other-windows next-window switch-to-buffer cur-win wincfg w3mbuffer point window-min-height w3m-form-input-map-buffer-lines size buffer pos --dolist-tail-- w3m-form-input-map-buffer w3m-form-input-map-urlname w3m-form-input-map-wincfg w3m-form-input-map-point candidate w3m-form-mouse-face pop-up-windows] 8]) (defalias 'w3m-form-submit-get-textarea-files #[(form) "\205= \306H\307\211\211\211\f\f\203;\f@\fAA\f\310ed\311\f$\211\203\312 \313\"\211\203\nB\202\n-\207" [w3m-form-use-textarea-backup-p form files file id pos 5 nil text-property-any w3m-form-id get-text-property w3m-form-file-name plist] 6]) (defvar w3m-form-last-position nil) #@61 Restore positions after fontifying a page containing forms. (defalias 'w3m-form-restore-last-position #[nil "d@V\203#\301\302@b\"\210\303\302A@\"\210\304\3058S]y\210\306\3078!\210\310\311\312\"\207" [w3m-form-last-position set-window-start nil set-window-hscroll 0 2 move-to-column 3 remove-hook w3m-fontify-after-hook w3m-form-restore-last-position] 3 (#$ . 56473)]) (defalias 'w3m-form-submit #[(form &optional id name value new-session download) "\306`\307\"\203\310\306`\307\"!\207\203& \203& G\311V\203&\312\n\313 B$\210\f\n\314H\206=\315\316\f\"\203<\f\311\211\224O\202=\f+\317 \320 \321\317 `\"iF,\322\n!- +\230\204v\315\323+\"\203v\315\324 \"\203v\325\326\327 \"!\204v\330 \202\374\n\331H\332=\204\206\n\333H\334=\203\261.\203\227\335 \336\211\211\337\n!%\202\374\340\341\342\"\210/\203\245\343\202\246\310 \344\336\337\n!\f%\202\374\n\331H\345=\203\355.\203\302\335\202\321\340\341\342\"\210/\203\320\343\202\321\310\337\n!\2110G\311U\203\341 \202\350\346 !\3470Q)!\202\374\350\351\336\21112\352\n\331H!*\"*\207" [id name form value w3m-current-url url get-text-property w3m-href-anchor w3m-goto-url 0 w3m-form-put-property :value 2 string-match "\\?" window-start window-hscroll count-lines w3m-form-submit-get-textarea-files "\\`https://" "\\`http://" y-or-n-p format "Send POST data to '%s'?" ding 1 post 4 multipart/form-data w3m-download nil w3m-form-make-form-data add-hook w3m-fontify-after-hook w3m-form-restore-last-position w3m-goto-url-new-session reload get w3m-url-strip-query "?" w3m-message "This form's method has not been supported: %s" prin1-to-string orig-url w3m-form-last-position w3m-form-textarea-post-files download new-session query print-length print-level] 8]) (defalias 'w3m-form-real-reset #[(form sexp) "@\302=\205% A@=\205%\303 \3048\305\3068\3078B$\205%\310\3078!\207" [sexp form w3m-form-input w3m-form-put-property 2 :value 3 7 w3m-form-replace] 7]) (defalias 'w3m-form-reset #[(form) "\212\303\211\304eb\305\"\211\203\306\n\"\206\307 \305\"b\210\307`\305\"\211\205; b\210\306\n\304 \305\"\"\2066\307 \305\"b\210\202+\207" [prop pos form nil get-text-property w3m-action w3m-form-real-reset next-single-property-change] 5]) #@101 Expand the form at point so as to show the contents fully. `w3m-show-form-hint' uses this function. (defalias 'w3m-form-expand-form #[nil "\306`\307\"?\205\350\310`\311\306 \312\"\206Bn\204,\306 S\312\"\211\203, Sb\203,\206Bl?\205B\306 T\312\"\211\205B Tb\205B*\313 \311\211\211\211\2112343@\314=\203\203\315\2113A@\316H\31738;\203v\320\31738!\202z\31738\"\321\"A\211\202\2533@\322=\205\346\315\2113A@\316H\323 @;\203\242\320\323 @!\202\245\323 @\"\321\"A\211\205\346o\203\267`\202\306`S\312\"\204\330\324`S\312\"\211\203\306\fSe]\211\312\"3\232\203 \204\324\f\206\342`\312\"\211\203\324 \312\"\211\203\330\306\fSe]\312\"3\232\203\330\311\211\202\331`\311\2045\325\f\206`d\312\311$\211\2035\326\312\"\211\203 \306\f\312\"3\232\203 \311\211\203 \327 \330\n\331\332\311\333\334DF#\210\330\n\335\336#\210\330\n\337\336#\210\340\341\342#G\340\341\342\340\343\342\344 \"##GX\203p\345 \302\n$\202\346i\346 `\" `U\203\347\202\200\350ZBb\210\351 \352\311\302\nF#\210\353!\210\345`\307 ` ZZ {E$\210\354 !\3115\2116\203\3166@5\3555! U\203\305\3565`#\2106A\2116\204\260* |\210 b\210\fAy\210\357\f@!\210\360 \210\3612!.\207" [value position keymap to pt from get-text-property w3m-form-expanded t nil w3m-action buffer-modified-p w3m-form-input plist-get 5 2 intern :value w3m-form-input-textarea w3m-form-textarea-info previous-single-property-change text-property-any next-single-property-change make-sparse-keymap define-key "c" lambda (interactive) kill-new [mouse-1] ignore [drag-mouse-1] replace-regexp-in-string "[ \n ]+" "" "][ \n ]*\\[" buffer-substring-no-properties put-text-property count-lines 0 1 add-text-properties rear-nonsticky insert-and-inherit overlays-at overlay-start move-overlay move-to-column deactivate-mark set-buffer-modified-p mod act inhibit-read-only o --dolist-tail--] 11 (#$ . 58720)]) #@96 Unexpand expanded form not being in the current line. `w3m-show-form-hint' uses this function. (defalias 'w3m-form-unexpand-form #[nil "\306`\307\"\206%\310\311 \307\312\313 $\313 W\206%\311 f\314=\205%\306\311 Se]\307\"?\205\335\315ed\307\312$\211\205\334\316\205>\306\307\"\211@\nA@\317\n8\320 \321\f\322#\210i`W\203d\323\324`\"Z\202~\323\324\f`\"\f`U\203s\323\202|n\203{\325\202|\326\\]B\fb\210 c\210\327!\312\211\203\260@\330!U\203\247\331\f`#\210A\211\204\222*A\325W\204\274Ay\210\f|\210A\325W\203\316b\210Ay\210\332@!\210\333 \210\334!.)\207" [pt inhibit-read-only expanded from to value get-text-property w3m-form-expanded next-single-property-change point-at-bol nil point-at-eol 93 text-property-not-all t 2 buffer-modified-p add-text-properties (keymap nil rear-nonsticky t w3m-form-expanded nil) 1 count-lines 0 -1 overlays-at overlay-start move-overlay move-to-column deactivate-mark set-buffer-modified-p mod o --dolist-tail--] 6 (#$ . 60645)]) (provide 'w3m-form)