;ELC ;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan 5 20:53:45 2003 ;;; from file /afs/sipb/contrib/emacs/packages/emacs-w3m-1.3.3-src/w3m-form.el ;;; in Emacs version 21.1.1 ;;; with bytecomp version 2.85 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`w3m-form.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require w3m-util w3m] 2) #@42 *Use fancy faces to fontify
tags. (custom-declare-variable 'w3m-form-use-fancy-faces 't '(#$ . -706) :group 'w3m :type 'boolean) (custom-declare-face 'w3m-form-face '((((class color) (background light)) (:foreground "cyan" :underline t)) (((class color) (background dark)) (:foreground "red" :underline t)) (t (:underline t))) "*Face to fontify forms." :group 'w3m-face) #@25 Return new form object. (defalias 'w3m-form-new #[(method action &optional baseurl charlst enctype) "\305\306;\203 \307!\202 \205\310 \n\" \f\206\311\312&\207" [method action baseurl charlst enctype vector w3m-form-object intern w3m-expand-url urlencoded nil] 7 (#$ . 1090)]) #@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 (#$ . 1383)]) (put 'w3m-form-p 'byte-optimizer 'byte-compile-inline-expand) (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\306 !\211\305\307\304H \"\n ##I\210 \207" [form name property value 5 plist-put intern plist-get] 9]) (put 'w3m-form-put-property 'byte-optimizer 'byte-compile-inline-expand) (defalias 'w3m-form-get-property '(macro . #[(form name property) "\303\211\304D\305 DE\nE\207" [form name property plist-get w3m-form-plist intern] 5])) (defalias 'w3m-form-put '(macro . #[(form name value) "\303 \304\n\257\207" [form name value w3m-form-put-property :value] 5])) (defalias 'w3m-form-get '(macro . #[(form name) "\302 \303BBB\207" [form name w3m-form-get-property (:value)] 4])) #@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 (#$ . 2689)]) (defalias 'w3m-form-make-form-data #[(form) "\306H\307H\310\311\312\215\206!\f\206!\313\314 \310\"A@!\206!1 \203\241\315 @!\316 \2112A@)\317\"343:\203Q3@\320=\203Q43B B\202\2253:\203v3A:\203v3\2112A@):\203v43@B B\202\2253:\203\210\321\322\3233\" \"\202\2253\203\22543B B \2112AA)*\202\" \205M\324H\325=\203H\326\327\330\331 #\310\21156 \237\3326P\333\334\335!!7\336\216r7q\210 \203: @A:\203$ @A@\320=\203$\337 @AA!\340!@\2115\341\230\203\374\34256\343\344 @@\345\346\3475\343\350\261 \210\351!\203\352!\210db\210\343c\210\20236\343\344 @@\353 @A\343\261\210 A\211\204\3246\354\261\210\355 .B\202M\356\357 \360#+\207" [form buf coding plist w3m-current-coding-system w3m-current-url 5 3 nil det (byte-code "\205\301@!\203\302\303\301@!\"\210\202A\211\204\304\207" [coding w3m-charset-to-coding-system throw det nil] 5) w3m-charset-to-coding-system w3m-attributes symbol-name plist-get :value file append mapcar #[(x) " B\207" [name x] 2] 4 multipart apply format "--_%d_%d_%d" current-time "multipart/form-data; boundary=" get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) 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" "-- \n" buffer-string mapconcat #[(elem) "\302\303\304@ \"\304A;\203A\202\305 \"#\207" [elem coding format "%s=%s" w3m-url-encode-string ""] 6] "&" w3m-default-coding-system x value name type boundary #1#] 13]) #@64 Resume content of all forms in the current buffer using FORMS. (defalias 'w3m-form-resume #[(forms) "@\306=\203\nA\212eb\210\307\211\211\211\211\211)\310 \203=\311`\312\"\211)\203\313\314)\"\203\315\316\317)\"!8\315\316\317)\"!*8\316\320)\"\316\321)\" \322\230\204_ \323\230\203\207\n\f\324\307+,\211\325\326 \325H\327\f!\211\326\330 \325H\f\",+##I\210,\202 \331\230\204 \332\230\204 \333\230\203\340\334\330\211 \325H\327\f!\"\324\"\335\"\210 \n=\204\n\f\324\330\211 \325H\327\f!\"\324\"+,\211\325\326 \325H\327\f!\211\326\330 \325H\f\",+##I\210,\202 \336\230\203[\330\211 \325H\327\f!\"\324\"\211+\203+\334+\321`-\311-\337\"\206n\204\311-S\337\"\206l?\205\311-T\337\")8\230\203(\340\202)\341!\210 \n=\204W\n\f\324++,\211\325\326 \325H\327\f!\211\326\330 \325H\f\",+##I\210,)\202 \342\230\203\326\330\211 \325H\327\f!\"\324\"\211+\203\246\334\321`-\311-\337\"\206\227n\204\214\311-S\337\"\206\227l?\205\227\311-T\337\")8+\235\203\243\340\202\244\341!\210 \n=\204\322\n\f\324++,\211\325\326 \325H\327\f!\211\326\330 \325H\f\",+##I\210,)\202 \343\230\203*\330\211 \325H\327\f!\"\324\"\211.@\203\372\334\344.@.A\"A!\210 \n=\204&\n\f\324.+,\211\325\326 \325H\327\f!\211\326\330 \325H\f\",+##I\210,)\202 \345\230\203\243\320`-\311-\337\"\206Tn\204I\311-S\337\"\206Tl?\205T\311-T\337\")8\330\211 \325H\327\f!\"\324\"+\211/\346V\203s/+B B \n=\204\237\n\f\324++,\211\325\326 \325H\327\f!\211\326\330 \325H\f\",+##I\210,*\202 \347\230\203\366\330\211 \325H\327\f!\"\324\"\211+\203\306+:\203\306\334+A!\210 \n=\204\362\n\f\324++,\211\325\326 \325H\327\f!\211\326\330 \325H\f\",+##I\210,)\202\330\211 \325H\327\f!\"\324\"\211+;\203 \334+!\210 \n=\2049\n\f\324++,\211\325\326 \325H\327\f!\211\326\330 \325H\f\",+##I\210,)\202 \3070\2111\203c1@\2110A\203Z\3500@0A\"\2101A\2111\204G. \307\207" [forms textareas cform form name type t nil w3m-form-goto-next-field get-text-property w3m-form-field-id string-match "fid=\\([^/]+\\)/type=\\([^/]+\\)/name=\\(.*\\)$" string-to-number match-string 1 2 3 "submit" "image" :value 5 plist-put intern plist-get "reset" "hidden" "password" w3m-form-replace invisible "radio" w3m-action "*" " " "checkbox" "select" assoc "textarea" 0 "file" w3m-form-textarea-replace fid w3m-current-forms value property position selects hseq textarea #1=#:--dolist-temp--4287] 10 (#$ . 4751)]) #@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 (#$ . 7252)]) (byte-code "\300\301!\204\n\301\302M\210\300\303!\203\304\305\303\"\210\202\304\305\306\"\210\300\207" [fboundp w3m-form-make-button #[(start end properties) "\303 \304\305\n\"#\207" [start end properties add-text-properties append (face w3m-form-face)] 6 "Make button on the region from START to END."] char-to-int defalias w3m-char-to-int identity] 3) #@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 (w3m-char-to-int (car x)) 0))) (setq attr (concat attr (char-to-string (car x)))) (setq x (cdr x)))) attr)] 1 (#$ . 7810)])) (byte-code "\300\301!\203\302\303\301\"\210\202\303\304M\210\300\305!\203 \302\306\305\"\210\202%\302\306\307\"\210\300\207" [fboundp string-to-list defalias w3m-string-to-char-list #[(str) "\301\302\"\207" [str mapcar identity] 3] int-to-char w3m-int-to-char identity] 3) #@36 Decode form information of w3mmee. (defalias 'w3m-form-mee-new #[(x) "\306\307!!\310\211\211\211\211\211\311@!\312\245\211 \313=\203%\314\202C \315=\2030\316\202C \317=\203;\320\202C \321=\205C\322)\311@!\312\246\211!\313=\203X\323\202`!\315=\205`\324)A\310\"@\325=\203\217A\211\203\217\311@!\313=\204\217\"\326@!P\"A\211\204v\")A\327#\235\203\316\310\"@\325=\203\307A\211\203\307\311@!\313=\204\307\"\326@!P\"A\211\204\256\")\202\355@\330=\203\331\331\202\354@\332=\203\344\333\202\354@\334=\205\354\335A\310\"@\325=\203A\211\203\311@!\313=\204\"\326@!P\"A\211\204\")A\310\"@\325=\203KA\211\203K\311@!\313=\204K\"\326@!P\"A\211\2042\")\336\f\310 \205Z C %.\207" [x name target charset action enctype w3m-string-to-char-list w3m-url-decode-string nil w3m-char-to-int 16 0 "get" 1 "post" 2 "internal" 3 "head" urlencoded multipart 84 char-to-string "lang=many" 101 "euc-jp" 115 "shift-jis" 110 "iso-2022-7bit" w3m-form-new method #1=#:G4288 #2=#:G4289 attr w3m-compile-options] 7 (#$ . 8394)]) #@43 Decode select form information of w3mmee. (defalias 'w3m-form-mee-select-value #[(value) "\306\307!!\310\211\211\211\211\211\203\210@\311\312!=\310\310A\211@\311\313!=\204@ \314@!PA\211\202' \203J\315 \"A\211@\311\313!=\204i\f\314@!PA\211\202P\f\203s\315\f\" \203y\f\f B BA\211\204\n \237.B\207" [value candidates selected s val label w3m-string-to-char-list w3m-url-decode-string nil w3m-int-to-char 1 0 char-to-string decode-coding-string clist w3m-output-coding-system] 7 (#$ . 9515)]) #@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\211\211\211\211\211\211\211\211\211@ABCDeb\210\310E\311=\203*\312\202+\313\307\306#\203\256 \314\315!\227C\315\225b\210\316\225BCE\311=\203L\317\202M\320\230\203E\311=\203\320\307F\321\307w\210\322\323!\203\246\324\325G\325\224\205v\326G\224G\225\")\206\237\327G\327\224\205\212\326G\224G\225\")\206\237\315G\315\224\205\236\326G\224G\225\")!\211F\202\257\322\330!\204\262\322\331!\203\275\316\225b\210\321\307w\210\202_\332\307w\210\307u\210 \333F!C\244)\202\307\211\211\211\211\211HIJKLM\321\307w\210\322\334!\203-\324\325G\325\224\205\375\326G\224G\225\")\206&\327G\327\224\205\326G\224G\225\")\206&\315G\315\224\205%\326G\224G\225\")!\211M\202\237\322\335!\203u\324\325G\325\224\205D\326G\224G\225\")\206m\327G\327\224\205X\326G\224G\225\")\206m\315G\315\224\205l\326G\224G\225\")!\227\211L\202\237\322\336!\203\276\337\324\325G\325\224\205\215\326G\224G\225\")\206\266\327G\327\224\205\241\326G\224G\225\")\206\266\315G\315\224\205\265\326G\224G\225\")!!\211K\202\237\322\340!\203\324\325G\325\224\205\325\326G\224G\225\")\206\376\327G\327\224\205\351\326G\224G\225\")\206\376\315G\315\224\205\375\326G\224G\225\")!\227\211J\202\237\322\341!\203N\324\325G\325\224\205\326G\224G\225\")\206F\327G\327\224\2051\326G\224G\225\")\206F\315G\315\224\205E\326G\224G\225\")!\227\211I\202\237\322\342!\203\226\324\325G\325\224\205e\326G\224G\225\")\206\216\327G\327\224\205y\326G\224G\225\")\206\216\315G\315\224\205\215\326G\224G\225\")!\227\211H\202\237\322\330!\204\242\322\331!\203\255\316\225b\210\321\307w\210\202\346\332\307w\210\307u\210K\343L\206\275\344M\206\333N\205\333\345ON\"\205\333N\316\346\224\206\332\347\224O\307J\205\351\350J\351\"\211JI\203\365\352I!\202\366\353%B B.\202C\354\230\203\227\307P\307Q\321\307w\210\322\355!\203X\324\325G\325\224\205(\326G\224G\225\")\206Q\327G\327\224\205<\326G\224G\225\")\206Q\315G\315\224\205P\326G\224G\225\")!\211Q\202a\322\330!\204d\322\331!\203o\316\225b\210\321\307w\210\202\332\307w\210\307u\210\310\356\307\306#\203Y\357\315\224f\360\"\204Y\315\225b\210\307\211RS\321\307w\210\322\361!\203\334\324\325G\325\224\205\254\326G\224G\225\")\206\325\327G\327\224\205\300\326G\224G\225\")\206\325\315G\315\224\205\324\326G\224G\225\")!\211S\202,\322\362!\203#\324\325G\325\224\205\363\326G\224G\225\")\206\327G\327\224\205\326G\224G\225\")\206\315G\315\224\205\326G\224G\225\")!\211R\202,\322\330!\204/\322\331!\203:\316\225b\210\321\307w\210\202\225\332\307w\210\307u\210S\203USR\206OSBPBP*\202v\n\204b\343\354\363\"P\203\223\nQ\364P\237TUQ\211\365\366\365H\352Q!\211Q\366\367\365HQ\"UT##I\210,*\202C\370\230\203D\307V\321\307w\210\322\371!\203\354\324\325G\325\224\205\274\326G\224G\225\")\206\345\327G\327\224\205\320\326G\224G\225\")\206\345\315G\315\224\205\344\326G\224G\225\")!\211V\202\365\322\330!\204\370\322\331!\203\316\225b\210\321\307w\210\202\245\332\307w\210\307u\210\310\372\307\306#\210V\204 \203@\n\204\"\343\354\363\"V\204* V \2030\307\373B\316\224\374\375\376\377\nVEF#\210)\202C\201n\230\203X\201o\201p!\210\202C\201q\230\203\307\211\211\211\211\211\211\211\211\211\211\211\211\211TQWXYZ[\\]^_`aK\321\307w\210\322\336!\203\330\337\324\325G\325\224\205\247\326G\224G\225\")\206\320\327G\327\224\205\273\326G\224G\225\")\206\320\315G\315\224\205\317\326G\224G\225\")!!\211K\202k \322\201r!\203\"\324\325G\325\224\205\361\326G\224G\225\")\206\327G\327\224\205\326G\224G\225\")\206\315G\315\224\205\326G\224G\225\")!\227\211a\202k \322\201s!\203m\337\324\325G\325\224\205<\326G\224G\225\")\206e\327G\327\224\205P\326G\224G\225\")\206e\315G\315\224\205d\326G\224G\225\")!!\211`\202k \322\201t!\203\270\337\324\325G\325\224\205\207\326G\224G\225\")\206\260\327G\327\224\205\233\326G\224G\225\")\206\260\315G\315\224\205\257\326G\224G\225\")!!\211_\202k \322\201u!\203\337\324\325G\325\224\205\322\326G\224G\225\")\206\373\327G\327\224\205\346\326G\224G\225\")\206\373\315G\315\224\205\372\326G\224G\225\")!!\211^\202k \322\201v!\203N\337\324\325G\325\224\205\326G\224G\225\")\206F\327G\327\224\2051\326G\224G\225\")\206F\315G\315\224\205E\326G\224G\225\")!!\211]\202k \322\201w!\203\231\337\324\325G\325\224\205h\326G\224G\225\")\206\221\327G\327\224\205|\326G\224G\225\")\206\221\315G\315\224\205\220\326G\224G\225\")!!\211\\\202k \322\201x!\203\344\337\324\325G\325\224\205\263\326G\224G\225\")\206\334\327G\327\224\205\307\326G\224G\225\")\206\334\315G\315\224\205\333\326G\224G\225\")!!\211[\202k \322\201y!\203/\337\324\325G\325\224\205\376\326G\224G\225\")\206'\327G\327\224\205\326G\224G\225\")\206'\315G\315\224\205&\326G\224G\225\")!!\211Z\202k \322\201z!\203z\337\324\325G\325\224\205I\326G\224G\225\")\206r\327G\327\224\205]\326G\224G\225\")\206r\315G\315\224\205q\326G\224G\225\")!!\211Y\202k \322\201{!\203\211\306\211X\202k \322\201|!\203\322\324\325G\325\224\205\242\326G\224G\225\")\206\313\327G\327\224\205\266\326G\224G\225\")\206\313\315G\315\224\205\312\326G\224G\225\")!\211W\202k \322\355!\203 \324\325G\325\224\205\351\326G\224G\225\")\206 \327G\327\224\205\375\326G\224G\225\")\206 \315G\315\224\205 \326G\224G\225\")!\211Q\202k \322\201}!\203b \324\325G\325\224\2052 \326G\224G\225\")\206[ \327G\327\224\205F \326G\224G\225\")\206[ \315G\315\224\205Z \326G\224G\225\")!\211T\202k \322\330!\204n \322\331!\203y \316\225b\210\321\307w\210\202\217\332\307w\210\307u\210\212\201~\201!\210\316\224A)^\204\227 \316\202\235 \201\200^!\211bc]cE\311=\203\264 K 8\202\272 K \236A\203\251 a\201\201\230\203\326 Q\201\202\230\203\326 T\202\251 a\201\203\230\204\350 a\201\204\230\203/\nW\201\205\230\204\251 \201\206BA\201\207\201\210\201\211KaQ$\376\201\212QTF\201\213\201\212Q\201\214QEF\201\215b\257#\210\202\251 a\201\216\230\203a\n\201\206BA\201\207\201\210\201\211KaQ$\376\201\217D\201\215b\257#\210\202\251 a\201\220\230\203 E\311=\203\251\nQ\364\201\221\201\222T!d\"TUQ\211\365\366\365H\352Q!\211Q\366\367\365HQ\"UT##I\210,\202\262\n\\QE B\373BA\201\207\201\210\201\211KaQ$\374\375\376\201\223^E\201\213\201\212Q\201\214QEF\201\224^\201\215b\257\f#\210^\316V\203\251 \373BA\201\225QD#\210\202\251 a\201\226\230\203\216 E\311=\203I Q\364\201\227T!TUQ\211\365\366\365H\352Q!\211Q\366\367\365HQ\"UT##I\210,\202R ]QE\fB\373BA\201\207\201\210\201\211KaQ$\374\375\376\201\230QE\201\213\201\212Q\201\214QEF\201\215b\257\n#\210\202\251 a\201\231\230\203\323 \373BA\201\207\201\210\201\211KaQ$\374\375\376\201\232QE\201\213\201\212Q\201\214QEF\201\215b\257\n#\210\202\251 a\201\233\230\203`\f\367\211\365H\352Q!\"\364\"eQ\364X\203\373 TeB\202\375 eTUQ\211\365\366\365H\352Q!\211Q\366\367\365HQ\"UT##I\210-\373BA\201\207\201\210\201\211KaQ$\374\375\376\201\234QTF\201\213\201\212Q\201\214QEF\201\215b\257\n#\210\202\251 a\201\235\230\203\346\fQ\364X\203w\fT\202\203\f\367\211\365H\352Q!\"\364\"TUQ\211\365\366\365H\352Q!\211Q\366\367\365HQ\"UT##I\210,\373BA\201\207\201\210\201\211KaQ$\374\375\376\201\236QTF\201\213\201\212Q\201\214QEF\201\215b\257\n#\210\202\251 a\201\237\230\203- \373BA\201\207\201\210\201\211KaQ$\374\375\376\201\240QTF\201\213\201\212Q\201\214QEF\201\215b\257\n#\210\202\251 Q\364T\206B \367\211\365H\352Q!\"\364\"TUQ\211\365\366\365H\352Q!\211Q\366\367\365HQ\"UT##I\210,\373BA\201\207\201\210\201\211KaQ$\374\375\376\201\241Qa`_T\257\201\213\201\212Q\201\214QEF\201\215b\257\n#\210.\202\201~\201\242\307\306#\203\205\316\224@f\204s\310\201\243\307\306#\203s\314\315!\201\226\230\203\246\307]\321\307w\210\322\201v!\203)\337\324\325G\325\224\205\370 \326G\224G\225\")\206!\327G\327\224\205\f\326G\224G\225\")\206!\315G\315\224\205 \326G\224G\225\")!!\211]\2022\322\330!\2045\322\331!\203@\316\225b\210\321\307w\210\202\336 \332\307w\210\307u\210]\f\236A\307\211Pg\211h\203\242\310\201\244\307\306#\203`\357\315\224f\360\"\204`\315\225b\210\307\211\211ijT\321\307w\210\322\201}!\203\311\201\245\324\325G\325\224\205\230\326G\224G\225\")\206\301\327G\327\224\205\254\326G\224G\225\")\206\301\315G\315\224\205\300\326G\224G\225\")!!\211T\202.\322\201\246!\203\201\245\324\325G\325\224\205\345\326G\224G\225\")\206\327G\327\224\205\371\326G\224G\225\")\206\315G\315\224\205 \326G\224G\225\")!!\211j\202.\322\201\247!\203%\306\211i\202.\322\330!\2041\322\331!\203<\316\225b\210\321\307w\210\202|\332\307w\210\307u\210TjBPBPi\203VTg\201\250\307w\210+\202XP\237Ph@hA@\364g\206zP\211k@@)PBTUQ\211\365\366\365H\352Q!\211Q\366\367\365HQ\"UT##I\210,,\202\276 \314\315!\201\220\230\203\276 \307\\\321\307w\210\322\201w!\203\337\324\325G\325\224\205\321\326G\224G\225\")\206\372\327G\327\224\205\345\326G\224G\225\")\206\372\315G\315\224\205\371\326G\224G\225\")!!\211\\\202 \322\330!\204\322\331!\203\316\225b\210\321\307w\210\202\267\332\307w\210\307u\210\315u\210\\ \236A\307A\211l\203o`B\201\251\307w\210l@lA@\364\201\245B`{!TUQ\211\365\366\365H\352Q!\211Q\366\367\365HQ\"UT##I\210,+\202\276 \201~\201\252\307\306#\203\205@\316\225|\210E\311=\203\220 \202\237\201\253\201\254\201\255 \201\256\"\"m\201\257f\206\253m!. \207" [form mapval maps forms selects textareas t nil re-search-forward w3mmee "<\\(_f\\|map\\|img_alt\\|input_alt\\|/input_alt\\)\\([ \f\n]+[^>]*\\)?/?>" "<\\(form_int\\|map\\|img_alt\\|input_alt\\|/input_alt\\)\\([ \f\n]+[^>]*\\)?/?>" match-string 1 0 "_f" "form_int" " \f\n" looking-at "_x[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" w3m-remove-redundant-spaces 2 buffer-substring-no-properties 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-form-new "get" string-match 6 8 split-string "," intern urlencoded "map" "name[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "<\\(area\\|/map\\)\\([ \f\n]+[^>]*\\)?/?>" char-equal 47 "href[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "alt[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "." :value 5 plist-put plist-get "img_alt" "usemap[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "<\\(/img_alt\\)\\([ \f\n]+[^>]*\\)?/?>" add-text-properties face w3m-form-face w3m-action w3m-form-input-map internal-start end start tag case-fold-search w3m-type _x num charset enctype accept-charset fid method action w3m-current-url w3m-url-components-regexp candidates name alt href value property usemap no_effect checked top_mergin rows size textareanumber selectnumber hseq maxlength width type abs-hseq w3m-max-anchor-sequence w3m-output-coding-system cvalue reuse-forms current selectinfo selected label x textareainfo w3m-current-forms "/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" "no_effect[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "value[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" search-forward "" abs "hidden" "link" "submit" "image" "true" w3m-form-make-button w3m-form-field-id format "fid=%d/type=%s/name=%s" w3m-form-submit w3m-submit w3m-form-get w3m-anchor-sequence "reset" w3m-form-reset "textarea" decode-coding-string w3m-url-decode-string w3m-form-input-textarea w3m-form-hseq w3m-form-name "select" w3m-form-mee-select-value w3m-form-input-select "password" w3m-form-input-password "checkbox" w3m-form-input-checkbox "radio" w3m-form-input-radio "file" w3m-form-input-file w3m-form-input "" "<\\([a-z]+\\)_int" "<\\(option_int\\|/select_int\\)\\([ \f\n]+[^>]*\\)?/?>" w3m-decode-entities-string "label[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "selected" ">\n" "^<" "" mapcar cdr sort #[(x y) "@ @W\207" [x y] 2] w3m-form-resume] 17 (#$ . 10069)]) (defalias 'w3m-form-replace #[(string &optional invisible) "\306ed\307`\310\307\"\206#n\204\310S\307\"\206#l?\205#\310T\307\")$\311 \312 \307\"{!\313 !`\314 b\210\203H\315G\316\"\202X\317\320\321\322\206R\323\n\"\324\"\323#\211\315\n\311!Z\325]\326\"\261\210`\312`\307\"|\210\327 ` #\210`\fb\210-\207" [position start width prop p buffer-read-only text-property-any w3m-action get-text-property string-width next-single-property-change text-properties-at nil make-string 46 mapconcat identity split-string w3m-truncate-string "" "\n" 0 32 add-text-properties invisible string] 7]) (defalias 'w3m-form-input #[(form name type width maxlength value) "\212\306\211\307H\310 !\"\311\"\312 \226\313P\n\" \311\f\211\307\314\307H\310 !\211\314\306\307H \" ##I\210,\315\f!+\207" [form name fvalue type input value plist-get 5 intern :value read-from-minibuffer ": " plist-put w3m-form-replace property] 10]) (defalias 'w3m-form-input-password #[(form name) "\306\211\307H\310 !\"\311\"\312\313\n\205\314\315Q\316\n# \311 \211\307\317\307H\310 !\211\317\306\307H \" \f##I\210,\320 \321\"*\207" [form name fvalue input value property plist-get 5 intern :value read-passwd "PASSWORD" " (default is no change)" ": " nil plist-put w3m-form-replace invisible] 10]) (defalias 'w3m-form-input-checkbox #[(form name value) "\305\211\306H\307 !\"\310\" \n\235\203< \310\311 \n\"\211\306\312\306H\307 !\211\312\305\306H \"\f ##I\210,\313\314!\202b \310 \nB\211\306\312\306H\307 !\211\312\305\306H \"\f ##I\210,\313\315!)\207" [form name fvalue value property plist-get 5 intern :value delete plist-put w3m-form-replace " " "*"] 10]) (defalias 'w3m-form-input-radio #[(form name value) "\212\305`\306\"\307b\210\310 \203\305`\306\"\230\203 \311\312!\210\202 * \n\313 \211\314\315 \314H\316\n!\211\315\317 \314H\n\"\f ##I\210,\311\320!\207" [id form name value property get-text-property w3m-form-field-id 1 w3m-form-goto-next-field w3m-form-replace " " :value 5 plist-put intern plist-get "*"] 10]) (defalias 'w3m-form-input-file #[(form name value) "\305\306\307\211\310H\311 !\"\312\"A\206\313\" \312\314\nB\211\310\315\310H\311 !\211\315\307\310H \"\f ##I\210,\316\n!)\207" [form name input value property read-file-name "File name: " plist-get 5 intern :value "~/" file plist-put w3m-form-replace] 10]) #@41 *Buffer lines for form textarea buffer. (custom-declare-variable 'w3m-form-input-textarea-buffer-lines '10 '(#$ . -26703) :group 'w3m :type 'integer) #@52 *A hook called after w3m-form-input-textarea-mode. (custom-declare-variable 'w3m-form-input-textarea-mode-hook 'nil '(#$ . -26859) :group 'w3m :type 'hook) #@52 *A Hook called before w3m-form-input-textarea-set. (custom-declare-variable 'w3m-form-input-textarea-set-hook 'nil '(#$ . -27021) :group 'w3m :type 'hook) #@79 Return a list of substrings of TEXT which are separated by newline character. (defalias 'w3m-form-text-chop #[(text) "\303\304\305\306\n #\203\n \303\224OB\303\225\202\n \304OB\237*\207" [parts start text 0 nil string-match "\n"] 4 (#$ . 27182)]) (defalias 'w3m-form-textarea-replace #[(hseq string) "\306`\307\"\310!\311 !`\312\211\211 \203 =\2048eb\210m\2048\306`\307\"=\2048\313`\307\"b\210\202\" \203k\314 @!\210\313`\307\"b\210\313`\307\"\211\203S\nb\210\306`\307\"\211\205f\310 !=\205f A\211\204<\fb.\207" [hseq string next cs p chopped get-text-property w3m-form-hseq abs w3m-form-text-chop nil next-single-property-change w3m-form-replace s] 7]) #@60 Return a cons cell of (NAME . LINE) for current text area. (defalias 'w3m-form-textarea-info #[nil "`\304\305\"\206n\204\304S\305\"\206l?\205\304T\305\")\306\307\212 \203^ \306V\204^o\204^\310 !\304`\305\"=\204^\311`\305\"b\210\304`\305\"\203X\311`\305\"\211\203X b\210\nT\2020`\304\312\"\206}n\204s\304S\312\"\206}l?\205}\304T\312\")\n,B\207" [position next lines s get-text-property w3m-form-hseq 0 nil abs previous-single-property-change w3m-form-name] 4 (#$ . 27878)]) (byte-code "\301B\306\301!\204\f\307 \204%\310 \311 \312\313#\210\311 \314\315#\210\311 \316\315#\210\302B\306\302!\2041\307\303B\306\303!\204=\307\304B\306\304!\204I\307\305B\306\305!\204U\307\317B\306\317!\204b\307\320\302!\210\320\303!\210\320\304!\210\320\305!\210\320\317!\207" [current-load-list w3m-form-input-textarea-keymap w3m-form-input-textarea-buffer w3m-form-input-textarea-form w3m-form-input-textarea-hseq w3m-form-input-textarea-point boundp nil make-sparse-keymap define-key "" w3m-form-input-textarea-set "" w3m-form-input-textarea-exit " " w3m-form-input-textarea-wincfg make-variable-buffer-local] 4) #@44 Save and exit from w3m form textarea mode. (defalias 'w3m-form-input-textarea-set #[nil "\306\307!\210\310 p \n \f\311!\205z\312 \204(\313 \210\314!\210\315!\210\316 !\210\205z\205zb\210\317 @\320\211\321\322\321H\323!\211\322\324\321H\"##I\210,\325\".\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 wincfg run-hooks w3m-form-input-textarea-set-hook buffer-string buffer-live-p one-window-p delete-window kill-buffer pop-to-buffer set-window-configuration w3m-form-textarea-info :value 5 plist-put intern plist-get w3m-form-textarea-replace w3mbuffer point form hseq buffer input value property name] 10 (#$ . 29043) nil]) #@35 Exit from w3m form textarea mode. (defalias 'w3m-form-input-textarea-exit #[nil "p \n\f\306\f!\205*\307 \204\310 \210\311\f!\210\312\f!\210\313 !\210 \205* b,\207" [w3m-form-input-textarea-point w3m-form-input-textarea-buffer w3m-form-input-textarea-wincfg wincfg w3mbuffer point buffer-live-p one-window-p delete-window kill-buffer pop-to-buffer set-window-configuration buffer] 4 (#$ . 29842) nil]) #@214 \ Major mode for w3m form textarea. \[w3m-form-input-textarea-set] Save and exit from w3m form textarea mode. \[w3m-form-input-textarea-exit] Exit from w3m form textarea mode.  (defalias 'w3m-form-input-textarea-mode #[nil "\303\304\305\n!\210\306\307!\207" [mode-name major-mode w3m-form-input-textarea-keymap "w3m form textarea" w3m-form-input-textarea-mode use-local-map run-hooks w3m-form-input-textarea-mode-hook] 2 (#$ . 30260)]) (defalias 'w3m-form-input-textarea #[(form hseq) "\306 \307\211 \310H\311@!\"\312\"\313 \314 p`\315 !Z\316Z\315 !T]Z^\317\320!\321\322\323\217\210\324\325 !\210\321\326!\210q\210  !\"\f#\n\203c\nc\210eb\210ASy\210\327 . \207" [info form value cur-win wincfg w3mbuffer w3m-form-textarea-info plist-get 5 intern :value selected-window current-window-configuration window-height 1 generate-new-buffer "*w3m form textarea*" nil (byte-code "\303 \304V\203\f \202 \n\"\207" [cur-win size window-min-height split-window 0] 4) ((error (byte-code "\302 \210\303\304! Z\"\207" [cur-win w3m-form-input-textarea-buffer-lines delete-other-windows split-window window-height] 4))) select-window next-window switch-to-buffer w3m-form-input-textarea-mode point window-min-height w3m-form-input-textarea-buffer-lines size buffer pop-up-windows w3m-form-input-textarea-form hseq w3m-form-input-textarea-hseq w3m-form-input-textarea-buffer w3m-form-input-textarea-point w3m-form-input-textarea-wincfg] 5]) #@39 *Buffer lines for form select buffer. (custom-declare-variable 'w3m-form-input-select-buffer-lines '10 '(#$ . -31769) :group 'w3m :type 'integer) #@50 *A hook called after w3m-form-input-select-mode. (custom-declare-variable 'w3m-form-input-select-mode-hook 'nil '(#$ . -31921) :group 'w3m :type 'hook) #@50 *A Hook called before w3m-form-input-select-set. (custom-declare-variable 'w3m-form-input-select-set-hook 'nil '(#$ . -32079) :group 'w3m :type 'hook) #@42 *Mouse face to highlight selected value. (custom-declare-variable 'w3m-form-mouse-face ''highlight '(#$ . -32236) :group 'w3m :type 'face) (byte-code "\301B\306\301!\204\f\307 \204d\310 \311 \312\313#\210\311 \314\313#\210\311 \314\313#\210\311 \315\316#\210\311 \317\316#\210\311 \320\316#\210\311 \321\322#\210\311 \323\324#\210\311 \325\326#\210\311 \327\330#\210\331\332!\203^\311 \333\334#\210\202d\311 \335\334#\210\302B\306\302!\204p\307\303B\306\303!\204|\307\304B\306\304!\204\210\307\305B\306\305!\204\224\307\336B\306\336!\204\241\307\337B\306\337!\204\256\307\340\302!\210\340\303!\210\340\304!\210\340\305!\210\340\336!\210\340\337!\207" [current-load-list w3m-form-input-select-keymap w3m-form-input-select-buffer w3m-form-input-select-form w3m-form-input-select-name w3m-form-input-select-point boundp nil 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 featurep xemacs [(button2)] w3m-form-input-select-set-mouse [mouse-2] w3m-form-input-select-candidates w3m-form-input-select-wincfg make-variable-buffer-local] 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 (#$ . 33433) "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!\205\200\314 \2046\315 \210\316 !\210\317!\210\320!\210 \205\200\205\200b\210 \321 !\211\322\323 \322H\324 !\211\323\325 \322H \"! ##I\210,\326\327A\"A!.\207" [cur buffer w3m-form-input-select-name name w3m-form-input-select-form form run-hooks w3m-form-input-select-set-hook get-text-property w3m-form-select-value nil buffer-live-p one-window-p delete-window kill-buffer pop-to-buffer set-window-configuration :value 5 plist-put intern plist-get w3m-form-replace assoc w3m-form-input-select-point point w3m-form-input-select-buffer w3mbuffer w3m-form-input-select-wincfg wincfg input w3m-form-input-select-candidates value property] 10 (#$ . 33637) nil]) #@33 Exit from w3m form select mode. (defalias 'w3m-form-input-select-exit #[nil "p   \f\306\f!\205*\307 \204\310 \210\311!\210\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 buffer-live-p one-window-p delete-window kill-buffer pop-to-buffer set-window-configuration wincfg] 2 (#$ . 34484) 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-hooks w3m-form-input-select-mode-hook] 2 (#$ . 34893)]) (defalias 'w3m-form-input-select #[(form name) "\306\211\307H\310 !\"\311\"\312 \313 p`!\314 !\"Z\315Z\314 !\"#T]Z^$\316\317!%\320&\320'\320\321\322\217\210\323\324 !\210\320(\325%!\210%q\210) * +!,\n-\f.\n\203\252\n@&\nA\211\320/\2110\203\2510@/`'/AG\326U\203\212\327\202\215/Ac\210\330'`\331/@\3321F#\210\333c\2100A\2110\204u*eb\210m\204\304&\334`\331\"\232\204\304\335`\331\"b\210\202\255\336\320!\210\337 \210\340 .\n\207" [form name value cur-win wincfg w3mbuffer plist-get 5 intern :value selected-window current-window-configuration window-height 1 generate-new-buffer "*w3m form select*" nil (byte-code "\303 \304V\203\f \202 \n\"\207" [cur-win size window-min-height split-window 0] 4) ((error (byte-code "\302 \210\303\304! Z\"\207" [cur-win w3m-form-input-select-buffer-lines delete-other-windows split-window window-height] 4))) select-window next-window switch-to-buffer 0 " " add-text-properties w3m-form-select-value mouse-face "\n" get-text-property next-single-property-change set-buffer-modified-p beginning-of-line w3m-form-input-select-mode point window-min-height w3m-form-input-select-buffer-lines size buffer cur pos pop-up-windows w3m-form-input-select-form w3m-form-input-select-name w3m-form-input-select-buffer w3m-form-input-select-point w3m-form-input-select-candidates w3m-form-input-select-wincfg candidate #1=#:--dolist-temp--4290 w3m-form-mouse-face] 9]) #@43 *Buffer lines for form select map buffer. (custom-declare-variable 'w3m-form-input-map-buffer-lines '10 '(#$ . -36901) :group 'w3m :type 'integer) #@47 *A hook called after w3m-form-input-map-mode. (custom-declare-variable 'w3m-form-input-map-mode-hook 'nil '(#$ . -37054) :group 'w3m :type 'hook) #@47 *A Hook called before w3m-form-input-map-set. (custom-declare-variable 'w3m-form-input-map-set-hook 'nil '(#$ . -37206) :group 'w3m :type 'hook) (byte-code "\301B\305\301!\204\f\306 \204d\307 \310 \311\312#\210\310 \313\312#\210\310 \313\312#\210\310 \314\315#\210\310 \316\315#\210\310 \317\315#\210\310 \320\321#\210\310 \322\323#\210\310 \324\325#\210\310 \326\327#\210\330\331!\203^\310 \332\333#\210\202d\310 \334\333#\210\302B\305\302!\204p\306\303B\305\303!\204|\306\304B\305\304!\204\210\306\335\302!\210\335\303!\210\335\304!\207" [current-load-list w3m-form-input-map-keymap w3m-form-input-map-buffer w3m-form-input-map-wincfg w3m-form-input-map-point boundp nil 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 featurep xemacs [(button2)] w3m-form-input-map-set-mouse [mouse-2] make-variable-buffer-local] 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 (#$ . 38170) "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 !\205;\313 \204!\314 \210\315 !\210\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 buffer-live-p one-window-p delete-window kill-buffer pop-to-buffer set-window-configuration w3m-goto-url w3m-expand-url w3m-form-input-map-point point] 3 (#$ . 38372) nil]) #@37 Exit from w3m form select map mode. (defalias 'w3m-form-input-map-exit #[nil "p   \f\306\n!\205+\307 \204\310 \210\311!\210\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 buffer-live-p one-window-p delete-window kill-buffer pop-to-buffer set-window-configuration point] 2 (#$ . 38925) 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-hooks w3m-form-input-map-mode-hook] 2 (#$ . 39327)]) (defalias 'w3m-form-input-map #[(form name) "\306\211\307H\310 !\"\311\"\312 \313 p`\314 !Z\315Z\314 ! T]Z^!\316\317!\"\320#\320\321\322\217\210\323\324 !\210\320$\325\"!\210\"q\210 %\f&'\n\203\231\n\320(\211)\203\230)@(`#(AG\326U\203y(@\202|(Ac\210\327#`\330(@\331*F#\210\332c\210)A\211)\204b*eb\210\333\320!\210\334 \210\335 . \207" [form name value cur-win wincfg w3mbuffer plist-get 5 intern :value selected-window current-window-configuration window-height 1 generate-new-buffer "*w3m map select*" nil (byte-code "\303 \304V\203\f \202 \n\"\207" [cur-win size window-min-height split-window 0] 4) ((error (byte-code "\302 \210\303\304! Z\"\207" [cur-win w3m-form-input-map-buffer-lines delete-other-windows split-window window-height] 4))) select-window next-window switch-to-buffer 0 add-text-properties w3m-form-map-value mouse-face "\n" set-buffer-modified-p beginning-of-line w3m-form-input-map-mode point window-min-height w3m-form-input-map-buffer-lines size buffer pos pop-up-windows w3m-form-input-map-buffer w3m-form-input-map-wincfg w3m-form-input-map-point candidate #1=#:--dolist-temp--4291 w3m-form-mouse-face] 8]) (defalias 'w3m-form-submit #[(form &optional name value) "\203,G\306U\204, \307\n\211\310\311 \310H\312!\211\311\313 \310H\" \n##I\210,\f \314H\206D\315\316\f\"\203C\f\306\211\224O\202D\f\211 \230\204j\315\317 \"\203j\315\320 \"\203j\321\322\323 \"!\204j\324 \202\242 \325H\326=\203~\327 \330\331 !Q!\202\242 \325H\332=\203\223\327 \333\334\331 !\f%\202\242\335\336\334\211!\"\337 \325H!*\"*\207" [name form value property w3m-current-url orig-url 0 :value 5 plist-put intern plist-get 2 string-match "\\?" "^https://" "^http://" y-or-n-p format "Send POST data to '%s'?" ding 1 get w3m-goto-url "?" w3m-form-make-form-data post reload nil w3m-message "This form's method has not been supported: %s" prin1-to-string url print-length print-level] 10]) (defalias 'w3m-form-real-reset #[(form sexp) "@\305=\205= A@=\205= \3068\307\3108\211\311\312 \311H\313\f!\211\312\314 \311H\f\" \n##I\210\n,\205=\315\3108!\207" [sexp form value property name w3m-form-input 2 :value 6 5 plist-put intern plist-get w3m-form-replace] 10]) (put 'w3m-form-real-reset 'byte-optimizer 'byte-compile-inline-expand) (defalias 'w3m-form-reset #[(form) "\212\306\211\307eb\310\"\211\203^\n @\311=\205T\n A@=\205T\n\312 8\313\314 8\211\315\316\n\315H\317!\211\316\320\n\315H\" \f##I\210\f,\205T\321\314 8!*\206\\\322 \310\"b\210\322`\310\"\211\205\277 b\210\n\307 \310\" @\311=\205\262\n A@=\205\262\n\312 8\313\314 8\211\315\316\n\315H\317!\211\316\320\n\315H\" \f##I\210\f,\205\262\321\314 8!*\206\272\322 \310\"b\210\202^+\207" [prop pos form sexp value property nil get-text-property w3m-action w3m-form-input 2 :value 6 5 plist-put intern plist-get w3m-form-replace next-single-property-change name] 10]) (provide 'w3m-form)