;ELC ;;; Compiled by root@porky.devel.redhat.com on Wed Apr 7 03:36:26 2004 ;;; from file /usr/src/build/385100-i386/BUILD/emacs-w3m-1.3.6/w3m-form.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; 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 '(#$ . -705) :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 (#$ . 1089)]) #@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 (#$ . 1382)]) (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 (#$ . 2688)]) (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\365\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\212\n\f\324\307+,\211\325\326 \325H\327\f!\211\326\330 \325H\f\",+##I\210+\210,\202 \331\230\204 \332\230\204 \333\230\203\346\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+\210,\202 \336\230\203D\330\211 \325H\327\f!\"\324\"\211+\203\334+\321\311`\337\"8\230\203\340\202\341!\210 \n=\204@\n\f\324++,\211\325\326 \325H\327\f!\211\326\330 \325H\f\",+##I\210+\210,)\202 \342\230\203\242\330\211 \325H\327\f!\"\324\"\211+\203o\334\321\311`\337\"8+\235\203l\340\202m\341!\210 \n=\204\236\n\f\324++,\211\325\326 \325H\327\f!\211\326\330 \325H\f\",+##I\210+\210,)\202 \343\230\203\371\330\211 \325H\327\f!\"\324\"\211-@\203\306\334\344-@-A\"A!\210 \n=\204\365\n\f\324-+,\211\325\326 \325H\327\f!\211\326\330 \325H\f\",+##I\210+\210,)\202 \345\230\203U\320\311`\337\"8\330\211 \325H\327\f!\"\324\"+\211.\346V\203\".+B B \n=\204Q\n\f\324++,\211\325\326 \325H\327\f!\211\326\330 \325H\f\",+##I\210+\210,*\202 \347\230\203\253\330\211 \325H\327\f!\"\324\"\211+\203x+:\203x\334+A!\210 \n=\204\247\n\f\324++,\211\325\326 \325H\327\f!\211\326\330 \325H\f\",+##I\210+\210,)\202\330\211 \325H\327\f!\"\324\"\211+;\203\302\334+!\210 \n=\204\361\n\f\324++,\211\325\326 \325H\327\f!\211\326\330 \325H\f\",+##I\210+\210,)\202 \307/\2110\2030@\211/A\203\350/@/A\"\2100A\2110\204\377. \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 selects hseq textarea #1=#:--dolist-temp--94996] 10 (#$ . 4750)]) #@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 (#$ . 7103)]) (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 (#$ . 7661)])) (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=#:G94997 #2=#:G94998 attr w3m-compile-options] 7 (#$ . 8245)]) #@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 (#$ . 9368)]) #@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\320\314\315!\227C\315\225b\210\316\225BCE\311=\203L\317\202M\320\230\203\230E\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\210M\203LMN\316\307OB\343\344NB#\203\342\345NB\316\224OOBBO\316\225B\202\303\346\347NB\307OOB\237\"+H\203\374\350H!\202\376PQR\316\307OB\343\351RB#\203<\346\347\352\353\354\355\314\316R\"Q\206$P\"!\"\"RB\316\224OOBBO\316\225B\202\346\347RB\307OOB\237\",MK\356L\206U\357M\206sS\205s\343TS\"\205sS\316\360\224\206r\361\224O\307J\205\201\362J\363\"\211JI\203\215\364I!\202\216\365%B B.\202C\366\230\2038\307U\307V\321\307w\210\322\367!\203\360\324\325G\325\224\205\300\326G\224G\225\")\206\351\327G\327\224\205\324\326G\224G\225\")\206\351\315G\315\224\205\350\326G\224G\225\")!\211V\202\371\322\330!\204\374\322\331!\203\316\225b\210\321\307w\210\202\251\332\307w\210\307u\210\310\370\307\306#\203\361\371\315\224f\372\"\204\361\315\225b\210\307\211WX\321\307w\210\322\373!\203t\324\325G\325\224\205D\326G\224G\225\")\206m\327G\327\224\205X\326G\224G\225\")\206m\315G\315\224\205l\326G\224G\225\")!\211X\202\304\322\374!\203\273\324\325G\325\224\205\213\326G\224G\225\")\206\264\327G\327\224\205\237\326G\224G\225\")\206\264\315G\315\224\205\263\326G\224G\225\")!\211W\202\304\322\330!\204\307\322\331!\203\322\316\225b\210\321\307w\210\202-\332\307w\210\307u\210X\203\355XW\206\347XBUBU*\202\n\204\372\356\366\375\"U\2034\nV\376U\237YZV\211\377\201s\377H\364V!\211V\201s\201t\377HV\"ZY##I\210Y\210,*\202C\201u\230\203\365\307[\321\307w\210\322\201v!\203\221\324\325G\325\224\205a\326G\224G\225\")\206\212\327G\327\224\205u\326G\224G\225\")\206\212\315G\315\224\205\211\326G\224G\225\")!\211[\202\232\322\330!\204\235\322\331!\203\250\316\225b\210\321\307w\210\202H\332\307w\210\307u\210\310\201w\307\306#\210[\204\300 \203\361\n\204\311\356\366\375\"[\204\321 [ \203\327\307\201xB\316\224\201y\201z\201{\201|\n[EF#\210)\202C\201}\230\203 \201~\201!\210\202C\201\200\230\203\307\211\211\211\211\211\211\211\211\211\211\211\211\211YV\\]^_`abcdefK\321\307w\210\322\336!\203\211\337\324\325G\325\224\205X\326G\224G\225\")\206\201\327G\327\224\205l\326G\224G\225\")\206\201\315G\315\224\205\200\326G\224G\225\")!!\211K\202\n\322\201\201!\203\323\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\")!\227\211f\202\n\322\201\202!\203\337\324\325G\325\224\205\355\326G\224G\225\")\206\327G\327\224\205\326G\224G\225\")\206\315G\315\224\205\326G\224G\225\")!!\211e\202\n\322\201\203!\203i\337\324\325G\325\224\2058\326G\224G\225\")\206a\327G\327\224\205L\326G\224G\225\")\206a\315G\315\224\205`\326G\224G\225\")!!\211d\202\n\322\201\204!\203\264\337\324\325G\325\224\205\203\326G\224G\225\")\206\254\327G\327\224\205\227\326G\224G\225\")\206\254\315G\315\224\205\253\326G\224G\225\")!!\211c\202\n\322\201\205!\203\377\337\324\325G\325\224\205\316\326G\224G\225\")\206\367\327G\327\224\205\342\326G\224G\225\")\206\367\315G\315\224\205\366\326G\224G\225\")!!\211b\202\n\322\201\206!\203J\337\324\325G\325\224\205\326G\224G\225\")\206B\327G\327\224\205-\326G\224G\225\")\206B\315G\315\224\205A\326G\224G\225\")!!\211a\202\n\322\201\207!\203\225\337\324\325G\325\224\205d\326G\224G\225\")\206\215\327G\327\224\205x\326G\224G\225\")\206\215\315G\315\224\205\214\326G\224G\225\")!!\211`\202\n\322\201\210!\203\340\337\324\325G\325\224\205\257\326G\224G\225\")\206\330\327G\327\224\205\303\326G\224G\225\")\206\330\315G\315\224\205\327\326G\224G\225\")!!\211_\202\n\322\201\211!\203+ \337\324\325G\325\224\205\372\326G\224G\225\")\206# \327G\327\224\205 \326G\224G\225\")\206# \315G\315\224\205\" \326G\224G\225\")!!\211^\202\n\322\201\212!\203: \306\211]\202\n\322\201\213!\203\203 \324\325G\325\224\205S \326G\224G\225\")\206| \327G\327\224\205g \326G\224G\225\")\206| \315G\315\224\205{ \326G\224G\225\")!\211\\\202\n\322\367!\203\312 \324\325G\325\224\205\232 \326G\224G\225\")\206\303 \327G\327\224\205\256 \326G\224G\225\")\206\303 \315G\315\224\205\302 \326G\224G\225\")!\211V\202\n\322\201\214!\203\n\324\325G\325\224\205\343 \326G\224G\225\")\206\f\n\327G\327\224\205\367 \326G\224G\225\")\206\f\n\315G\315\224\205 \n\326G\224G\225\")!\211Y\202\n\322\330!\204\n\322\331!\203*\n\316\225b\210\321\307w\210\202@\332\307w\210\307u\210\212\201\215\201\216!\210\316\224A)c\204H\n\316\202N\n\201\217c!\211gh]hE\311=\203e\nK 8\202k\nK \236A\203\313f\201\220\230\203\207\nV\201\221\230\203\207\nY\202\313f\201\222\230\204\231\nf\201\223\230\203\342\n\\\201\224\230\204\313\201\225BA\201\226\201\227\201\230KfV$\201{\201\231VYF\201\232\201\231V\201\233VEF\201\234g\257#\210\202\313f\201\235\230\203 \201\225BA\201\226\201\227\201\230KfV$\201{\201\236D\201\234g\257#\210\202\313f\201\237\230\203\317 E\311=\203g V\376\201\240\201\241Y!i\"YZV\211\377\201s\377H\364V!\211V\201s\201t\377HV\"ZY##I\210Y\210,\202p aVE B\201xBA\201\226\201\227\201\230KfV$\201y\201z\201{\201\242cE\201\232\201\231V\201\233VEF\201\243c\201\234g\257\f#\210c\316V\203\313\201xBA\201\244VD#\210\202\313f\201\245\230\203g\fE\311=\203\fV\376\201\246Y!YZV\211\377\201s\377H\364V!\211V\201s\201t\377HV\"ZY##I\210Y\210,\202#\fbVE\fB\201xBA\201\226\201\227\201\230KfV$\201y\201z\201{\201\247VE\201\232\201\231V\201\233VEF\201\234g\257\n#\210\202\313f\201\250\230\203\264\f\201xBA\201\226\201\227\201\230KfV$\201y\201z\201{\201\251VE\201\232\201\231V\201\233VEF\201\234g\257\n#\210\202\313f\201\252\230\203T \201t\211\377H\364V!\"\376\"jV\376]\203\336\fYjB\202\340\fjYZV\211\377\201s\377H\364V!\211V\201s\201t\377HV\"ZY##I\210Y\210-\201xBA\201\226\201\227\201\230KfV$\201y\201z\201{\201\253VYF\201\232\201\231V\201\233VEF\201\234g\257\n#\210\202\313f\201\254\230\203\355 V\376]\203k Y\202y \201t\211\377H\364V!\"\376\"YZV\211\377\201s\377H\364V!\211V\201s\201t\377HV\"ZY##I\210Y\210,\201xBA\201\226\201\227\201\230KfV$\201y\201z\201{\201\255VYF\201\232\201\231V\201\233VEF\201\234g\257\n#\210\202\313f\201\256\230\203<\201xBA\201\226\201\227\201\230KfV$\201y\201z\201{\201\257VYF\201\232\201\231V\201\233VEF\201\234g\257\n#\210\202\313V\376Y\206S\201t\211\377H\364V!\"\376\"YZV\211\377\201s\377H\364V!\211V\201s\201t\377HV\"ZY##I\210Y\210,\201xBA\201\226\201\227\201\230KfV$\201y\201z\201{\201\260VfedY\257\201\232\201\231V\201\233VEF\201\234g\257\n#\210.\202\201\215\201\261\307\306#\203\271\316\224@k\204\247\310\201\262\307\306#\203\247\314\315!\201\245\230\203\321\307b\321\307w\210\322\201\205!\203K\337\324\325G\325\224\205\326G\224G\225\")\206C\327G\327\224\205.\326G\224G\225\")\206C\315G\315\224\205B\326G\224G\225\")!!\211b\202T\322\330!\204W\322\331!\203b\316\225b\210\321\307w\210\202\332\307w\210\307u\210b\f\236A\307\211Ul\211m\203\315\310\201\263\307\306#\203\202\371\315\224f\372\"\204\202\315\225b\210\307\211\211noY\321\307w\210\322\201\214!\203\353\201\264\324\325G\325\224\205\272\326G\224G\225\")\206\343\327G\327\224\205\316\326G\224G\225\")\206\343\315G\315\224\205\342\326G\224G\225\")!!\211Y\202P\322\201\265!\2038\201\264\324\325G\325\224\205\326G\224G\225\")\2060\327G\327\224\205\326G\224G\225\")\2060\315G\315\224\205/\326G\224G\225\")!!\211o\202P\322\201\266!\203G\306\211n\202P\322\330!\204S\322\331!\203^\316\225b\210\321\307w\210\202\236\332\307w\210\307u\210YoBUBUn\203xYl\201\267\307w\210+\202zU\237Um@mA@\376l\206\234U\211p@@)UBYZV\211\377\201s\377H\364V!\211V\201s\201t\377HV\"ZY##I\210Y\210,,\202\340\314\315!\201\237\230\203\340\307a\321\307w\210\322\201\206!\203-\337\324\325G\325\224\205\374\326G\224G\225\")\206%\327G\327\224\205\326G\224G\225\")\206%\315G\315\224\205$\326G\224G\225\")!!\211a\2026\322\330!\2049\322\331!\203D\316\225b\210\321\307w\210\202\342\332\307w\210\307u\210\315u\210a \236A\307A\211q\203\243`B\201\270\307w\210q@qA@\376\201\264B`{!YZV\211\377\201s\377H\364V!\211V\201s\201t\377HV\"ZY##I\210Y\210,+\202\340\201\215\201\271\307\306#\203\271@\316\225|\210E\311=\203\304 \202\321\352\201\272\201\273 \201\274\"\"r\201\275k\206\335r!. \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]*\\)" string-match "&" "&" apply concat w3m-charset-to-coding-system "[^!-~]+" mapcar #[(c) "\301\302\"\207" [c format "%%%02x"] 3] append encode-coding-string w3m-form-new "get" 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 internal-start end start tag case-fold-search w3m-type _x num charset enctype accept-charset fid method action str buf w3m-current-coding-system coding url 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 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 "/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" "^<" "" cdr sort #[(x y) "@ @W\207" [x y] 2] w3m-form-resume] 17 (#$ . 9922)]) (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` b\210-\207" [start width prop p buffer-read-only invisible 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 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 \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\f\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 \210,\313\314!\202f \310 \nB\211\306\312\306H\307 !\211\312\305\306H \"\f ##I\210 \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 \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 \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 '(#$ . -27291) :group 'w3m :type 'integer) #@52 *A hook called after w3m-form-input-textarea-mode. (custom-declare-variable 'w3m-form-input-textarea-mode-hook 'nil '(#$ . -27447) :group 'w3m :type 'hook) #@52 *A Hook called before w3m-form-input-textarea-set. (custom-declare-variable 'w3m-form-input-textarea-set-hook 'nil '(#$ . -27609) :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 (#$ . 27770)]) (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 "\303`\304\"\305\306\212\n\203B\n\305V\204Bo\204B\307\n!\303`\304\"=\204B\310`\304\"b\210\303`\304\"\203<\310`\304\"\211\203<b\210 T\202\303`\311\" ,B\207" [next lines s get-text-property w3m-form-hseq 0 nil abs previous-single-property-change w3m-form-name] 4 (#$ . 28466)]) (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!\205}\312 \204(\313 \210\314!\210\315!\210\316 !\210\205}\205}b\210\317 @\320\211\321\322\321H\323!\211\322\324\321H\"##I\210\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 (#$ . 29515) 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 (#$ . 30320) 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 (#$ . 30738)]) (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 '(#$ . -32247) :group 'w3m :type 'integer) #@50 *A hook called after w3m-form-input-select-mode. (custom-declare-variable 'w3m-form-input-select-mode-hook 'nil '(#$ . -32399) :group 'w3m :type 'hook) #@50 *A Hook called before w3m-form-input-select-set. (custom-declare-variable 'w3m-form-input-select-set-hook 'nil '(#$ . -32557) :group 'w3m :type 'hook) #@42 *Mouse face to highlight selected value. (custom-declare-variable 'w3m-form-mouse-face ''highlight '(#$ . -32714) :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 (#$ . 33911) "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\203\314 \2046\315 \210\316 !\210\317!\210\320!\210 \205\203\205\203b\210 \321 !\211\322\323 \322H\324 !\211\323\325 \322H \"! ##I\210 \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 (#$ . 34115) 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 (#$ . 34968) 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 (#$ . 35377)]) (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@/`'\326/AG!\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 zerop " " 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--94999 w3m-form-mouse-face] 9]) #@43 *Buffer lines for form select map buffer. (custom-declare-variable 'w3m-form-input-map-buffer-lines '10 '(#$ . -37390) :group 'w3m :type 'integer) #@47 *A hook called after w3m-form-input-map-mode. (custom-declare-variable 'w3m-form-input-map-mode-hook 'nil '(#$ . -37543) :group 'w3m :type 'hook) #@47 *A Hook called before w3m-form-input-map-set. (custom-declare-variable 'w3m-form-input-map-set-hook 'nil '(#$ . -37695) :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 (#$ . 38659) "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 (#$ . 38861) 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 (#$ . 39414) 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 (#$ . 39816)]) (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)@(`#\326(AG!\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 zerop 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--95000 w3m-form-mouse-face] 8]) (defalias 'w3m-form-submit #[(form &optional name value) "\203.\306G!\204. \307\n\211\310\311 \310H\312!\211\311\313 \310H\" \n##I\210\n\210,\f \314H\206F\315\316\f\"\203E\f\317\211\224O\202F\f\"\315\320\"\"\203X\"\317\211\224O\"\" \230\204}\315\321 \"\203}\315\322\"\"\203}\323\324\325\"\"!\204}\326 \202\265 \327H\330=\203\221\331\"\332\333 !Q!\202\265 \327H\334=\203\246\331\"\335\336\333 !\f%\202\265\337\340\336\211#$\341 \327H!*\"*\207" [name form value property w3m-current-url orig-url zerop :value 5 plist-put intern plist-get 2 string-match "\\?" 0 "!CURRENT_URL!$" "^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)