;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require cl-lib w3m-util] 2) #@73 `w3m-process-sentinel' binds `inhibit-quit' according to this variable. (defvar w3m-process-inhibit-quit t (#$ . 156)) #@65 Number of seconds idle time waiting for processes to terminate. (defvar w3m-process-timeout 300 (#$ . 281)) #@38 If non-nil, kill the process surely. (defvar w3m-process-kill-surely (featurep 'meadow) (#$ . 395)) #@45 The maximum limit of the working processes. (defconst w3m-process-max 5 (#$ . 501)) #@21 Queue of processes. (defvar w3m-process-queue nil (#$ . 591)) #@36 The last exit status of a process. (defvar w3m-process-exit-status nil (#$ . 659)) (defvar w3m-process-authinfo-alist nil) (defvar w3m-process-accept-alist nil) (defvar w3m-process-user nil) (defvar w3m-process-passwd nil) (defvar w3m-process-realm nil) (defvar w3m-process-object nil) (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [make-variable-buffer-local w3m-process-user w3m-process-passwd w3m-process-realm w3m-process-object] 2) #@66 Alist of process buffer's name and downloading progress message. (defvar w3m-process-modeline-string nil (#$ . 1122)) (make-variable-buffer-local 'w3m-process-modeline-string) #@32 User name of the proxy server. (defvar w3m-process-proxy-user nil (#$ . 1304)) #@31 Password of the proxy server. (defvar w3m-process-proxy-passwd nil (#$ . 1389)) #@40 Passphrase for the client certificate. (defvar w3m-process-ssl-passphrase nil (#$ . 1475)) #@75 Set coding systems for `w3m-command', and evaluate BODY. (fn &rest BODY) (defalias 'w3m-process-with-coding-system '(macro . #[128 "\300\301BB\207" [let ((coding-system-for-read 'binary) (coding-system-for-write w3m-terminal-coding-system) (default-process-coding-system (cons 'binary w3m-terminal-coding-system)) (process-connection-type w3m-process-connection-type))] 4 (#$ . 1572)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put w3m-process-with-coding-system lisp-indent-function 0 edebug-form-spec (body)] 4) #@93 Set the environment variables according to ALIST, and evaluate BODY. (fn ALIST &rest BODY) (defalias 'w3m-process-with-environment '(macro . #[385 "\300\301\302\303D\304BBBBB\207" [let ((process-environment (copy-sequence process-environment)) (temporary-file-directory (if (file-directory-p w3m-profile-directory) (file-name-as-directory w3m-profile-directory) temporary-file-directory)) (default-directory (cond ((file-directory-p w3m-profile-directory) (file-name-as-directory w3m-profile-directory)) ((file-directory-p (expand-file-name "~/")) (expand-file-name "~/")) (t temporary-file-directory)))) dolist pair ((setenv (car pair) (cdr pair)))] 7 (#$ . 2110)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put w3m-process-with-environment lisp-indent-function 1 edebug-form-spec (form body)] 4) #@60 Return t if OBJECT is a `w3m-process' object. (fn OBJECT) (defalias 'w3m-process-p #[257 "\211:\205\300A!\205\211A\301H\302=\207" [vectorp 0 w3m-process-object] 3 (#$ . 2933)]) (put 'w3m-process-new 'edebug-form-spec '(form form form &optional form form)) #@94 Return a new `w3m-process' object. (fn COMMAND ARGUMENTS BUFFER &optional PROCESS HANDLERS) (defalias 'w3m-process-new '(macro . #[1283 "\300\211E\301\302\257E\207" [cons vector 'w3m-process-object] 12 (#$ . 3201)])) #@15 (fn OBJECT) (defalias 'w3m-process-command '(macro . #[257 "\300\211DD\207" [car] 4 (#$ . 3436)])) #@15 (fn OBJECT) (defalias 'w3m-process-arguments '(macro . #[257 "\300\301DD\207" [cdr car] 4 (#$ . 3544)])) #@15 (fn OBJECT) (defalias 'w3m-process-buffer '(macro . #[257 "\300\301D\302BB\207" [aref cdr (1)] 4 (#$ . 3658)])) #@15 (fn OBJECT) (defalias 'w3m-process-process '(macro . #[257 "\300\301D\302BB\207" [aref cdr (2)] 4 (#$ . 3779)])) #@15 (fn OBJECT) (defalias 'w3m-process-handlers '(macro . #[257 "\300\301D\302BB\207" [aref cdr (3)] 4 (#$ . 3901)])) (put 'w3m-process-handler-new 'edebug-form-spec '(form form form)) #@39 (fn BUFFER PARENT-BUFFER FUNCTIONS) (defalias 'w3m-process-handler-new '(macro . #[771 "\300\301BBBB\207" [vector (nil)] 8 (#$ . 4091)])) #@16 (fn HANDLER) (defalias 'w3m-process-handler-buffer '(macro . #[257 "\300\301BB\207" [aref (0)] 4 (#$ . 4240)])) #@16 (fn HANDLER) (defalias 'w3m-process-handler-parent-buffer '(macro . #[257 "\300\301BB\207" [aref (1)] 4 (#$ . 4361)])) #@16 (fn HANDLER) (defalias 'w3m-process-handler-functions '(macro . #[257 "\300\301BB\207" [aref (2)] 4 (#$ . 4489)])) #@16 (fn HANDLER) (defalias 'w3m-process-handler-result '(macro . #[257 "\300\301BB\207" [aref (3)] 4 (#$ . 4613)])) #@187 Generate a new `w3m-process' object. The process will be provided by HANDLER, ARGUMENTS and this buffer, registered to `w3m-process-queue', and returned. (fn HANDLER COMMAND ARGUMENTS) (defalias 'w3m-process-push #[771 "\303B\"\211\204B\304\302p\305\211$B\262\211B\304p \305$A\211\306\306HBI\266r\211A\307Hq\210\211\211)\207" [w3m-process-queue w3m-current-buffer w3m-process-object assoc vector nil 3 1] 11 (#$ . 4735)]) #@44 Kill process PROCESS safely. (fn PROCESS) (defalias 'w3m-process-kill-process #[257 "\301!\205/\302\303\"\210\304\303\"\210\305!\306>\205/\307!\210\205/\305!\310>\205/\311\312!\210\202 \207" [w3m-process-kill-surely processp set-process-filter ignore set-process-sentinel process-status (run stop) kill-process (run stop) sit-for 0.1] 4 (#$ . 5181)]) #@279 Start a process specified by the OBJECT, return always nil. When NO-SENTINEL is not equal to nil, all status changes of the generated asynchronous process is ignored. Otherwise, `w3m-process-sentinel' is given to the process as the sentinel. (fn OBJECT &optional NO-SENTINEL) (defalias 'w3m-process-start-process #[513 "A\306H\203\211\203\271\307A\306H\310\"\210\202\271rA\311Hq\210\312\312B \313!\314!\2039\315!\202;\314!\203I\315!\202Y\314\316\317!!\203W\316\317!\202Y\211\203u\211@\320@A\"\210A\266\202\202a\210@@\321\322p@A%\205\214\323!\211@\211A \324!A\211\306I\266\325\326\"\210\307\203\256\310\202\257\327\"\210\330\324\"\266.\324\207" [w3m-terminal-coding-system w3m-process-connection-type process-connection-type default-process-coding-system coding-system-for-write coding-system-for-read 2 set-process-sentinel ignore 1 binary copy-sequence file-directory-p file-name-as-directory expand-file-name "~/" setenv apply start-process w3m-url-authinfo nil set-process-filter w3m-process-filter w3m-process-sentinel set-process-query-on-exit-flag process-environment w3m-profile-directory temporary-file-directory default-directory w3m-command-environment w3m-current-url w3m-process-user w3m-process-passwd w3m-process-realm] 9 (#$ . 5552)]) #@23 Kill stray processes. (defalias 'w3m-process-kill-stray-processes #[0 "\211\205*\211@\301A\302H!\204#\303\"\211A\304H\203#\305A\304H!\210A\266\202\202\207" [w3m-process-queue buffer-name 1 delq 2 w3m-process-kill-process] 5 (#$ . 6881)]) #@134 Start a process which is registerd in `w3m-process-queue' if the number of current working processes is less than `w3m-process-max'. (defalias 'w3m-process-start-queued-processes #[0 "\302\30327\304!\211\2054\211@\305A\306H!\203-T\211\262 V\203)\307\303\310\"\210\202-\311!\210A\266\202\202\2620\207" [w3m-process-queue w3m-process-max 0 last reverse buffer-name 1 throw nil w3m-process-start-process] 6 (#$ . 7138)]) #@102 Remove handlers related to the buffer BUFFER, and stop processes which have no handler. (fn BUFFER) (defalias 'w3m-process-stop #[257 "\306!\210\307\310\311\312\313\"\"\"\314!\203r\211q\210\310)\315 \210\203)\316 \210\202`\n\203``eb\210\317\320\310\321#\203\\\321\322\224d|\210\323\324\325!\326\261\210\325\327\325\224^|\210\330\310!\210\310\211)\210\202`\211b\266\331!\207" [w3m-process-queue w3m-current-process w3m-clear-display-while-reading inhibit-read-only w3m-current-url w3m-current-title w3m-cancel-refresh-timer delq nil mapcar make-closure #[257 "\301\302\303\304\305\300\"A\306H\"\"\211\203H@@@AB\307\310A\311HA\312HA\311H\303\313\">\2034\202E\307A\311H@\311H\314\302$B$B\207A\312H\203V\315A\312H!\210A\306H\211\203m\211@\316\317H!\210A\266\202\202Z\210\302\207" [V0 delq nil mapcar make-closure #[257 "\300\301H=?\205\n\211\207" [V0 1] 4 "\n\n(fn HANDLER)"] 3 vector w3m-process-object 1 2 #[257 "\211\300H\207" [0] 3 "\n\n(fn X)"] #[257 "\300p!\207" [w3m-kill-buffer] 3 "\n\n(fn X)"] w3m-process-kill-process w3m-kill-buffer 0] 12 "\n\n(fn OBJ)"] buffer-name w3m-process-kill-stray-processes w3m-process-start-queued-processes re-search-forward "\n*\\( *\\)Reading [^\n]+\\(\\.\\.\\.\\)" t 2 "\n\n" match-string 1 "Operation aborted by user." 3 set-buffer-modified-p w3m-force-window-update-later] 8 (#$ . 7577) (byte-code "pC\207" [] 1)]) (defalias 'w3m-process-shutdown #[0 "\303\211\303\211\211\2053\211@\304A\305H!\203%\211A\306H\203%\307A\306H!\210\310A\305H!\210A\266\202\202\207" [w3m-process-queue w3m-process-authinfo-alist w3m-process-accept-alist nil buffer-name 1 2 w3m-process-kill-process w3m-kill-buffer] 7]) #@141 Generate the null handler, and evaluate BODY. When BODY is evaluated, the local variable `handler' keeps the null handler. (fn &rest BODY) (defalias 'w3m-process-with-null-handler '(macro . #[128 "\300\301!\302\302\303\304BBBDC\305\306D\307DEF\207" [gensym "--tempvar--" let ((handler nil)) (ignore handler) when w3m-process-p w3m-process-start-process] 8 (#$ . 9286)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\306\307\310#\210\300\306\311\312#\207" [put w3m-process-with-null-handler lisp-indent-function 0 edebug-form-spec (body) w3m-process-timeout error-conditions (error w3m-process-timeout) error-message "Time out"] 4) #@27 (fn ERROR-DATA PROCESS) (defalias 'w3m-process-error-handler #[514 "\301\"\302A\303H!\210\304@A\"\207" [w3m-process-queue delq w3m-process-kill-process 2 signal] 5 (#$ . 9944)]) #@72 Non-nil means that `w3m-process-with-wait-handler' is being evaluated. (defvar w3m-process-waited nil (#$ . 10136)) #@161 Wait for SECONDS seconds or until PROCESS will exit. Returns the exit status of the PROCESS when it exit normally, otherwise returns nil. (fn PROCESS SECONDS) (defalias 'w3m-process-wait-process #[514 "\3002A\301 \302 \210r\303\304!)?\302 \210\203\305!\306>\204%\305!\307>\203;\203\310\301 \"W\203\311\300\312\"\210\202\313!\2620\207" [timeout current-time discard-input sit-for 0.1 process-status (open run) (open run stop) w3m-time-lapse-seconds throw nil process-exit-status] 7 (#$ . 10259)]) #@185 Generate the waiting handler, and evaluate BODY. When BODY is evaluated, the local variable `handler' keeps the handler which will wait for the end of the evaluation. (fn &rest BODY) (defalias 'w3m-process-with-wait-handler '(macro . #[128 "\300\301!\300\302!\303\304C\305BE\306\307BB\310\303\311\312DDC\313\nBBBE\314\315D\316\317\303\320\321\f\322BB\323\324\325D\326BB\327\330EEF\331\327\317 EDF\332\325\nD\333BB\310\n\334\335\336\311\337DD\340\341\342BB\343BBE\327\344EFE\257\257\207" [gensym "--result--" "--wait-function--" let (w3m-process-waited t) ((make-symbol "wait-function")) fset ('identity) setq handler list (ignore handler) while w3m-process-p condition-case error (w3m-process-inhibit-quit inhibit-quit) w3m-process-start-process (t) unless w3m-process-wait-process w3m-process-process (w3m-process-timeout) w3m-process-error-handler (cons 'w3m-process-timeout nil) quit w3m-process-sentinel ("finished\n" t) catch 'result dolist w3m-process-handlers when memq ((w3m-process-handler-functions handler)) ((throw 'result (w3m-process-handler-result handler))) (cons 'error "Can't find wait handler")] 21 (#$ . 10781)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put w3m-process-with-wait-handler lisp-indent-function 0 edebug-form-spec (body)] 4) #@454 (w3m-process-do (VAR FORM) BODY...): Eval the body BODY asynchronously. If an asynchronous process is generated in the evaluation of the form FORM, this macro returns its object immdiately, and the body BODY will be evaluated after the end of the process with the variable VAR which is set to the result of the form FORM. Otherwise, the body BODY is evaluated at the same time, and this macro returns the result of the body BODY. (fn SPEC &rest BODY) (defalias 'w3m-process-do '(macro . #[385 "@\206\300\301!A\300\302!\303\304CBBDC\303\303\305\306\307BBDC\310BBBDC\311\312D\311\305\n\313\fDF\311\312\314\f\315\fEED\311\305 \313DF\fFFEE\207" [gensym "--tempvar--" "--post-function--" let lambda handler cons (handler) (ignore handler) if w3m-process-p w3m-process-start-process setq funcall] 19 (#$ . 12092)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put w3m-process-do lisp-indent-function 1 edebug-form-spec ((symbolp form) def-body)] 4) #@173 (w3m-process-do-with-temp-buffer (VAR FORM) BODY...): Like `w3m-process-do', but the form FORM and the body BODY are evaluated in a temporary buffer. (fn SPEC &rest BODY) (defalias 'w3m-process-do-with-temp-buffer '(macro . #[385 "@\206\300\301!A\300\302!\300\303!\300\304!\300\305!\306\307B\310BD\311 C\312\313D\314 DE\fBBB\nC\315D\312\313 D\314\nDE \257D\306\n\306\316\317\320 D\317\320D\321BBEDC\322\323 BBFDC\324\325 D\324\316\326DF\324\325\327\330\306\316\317\320D\331BBDC\332DFDED\324\316\326DFDFFEEE\207" [gensym "--tempvar--" "--post-body--" "--post-handler--" "--temp-buffer--" "--current-buffer--" let ((w3m-get-buffer-create (generate-new-buffer-name w3m-work-buffer-name))) ((current-buffer)) cl-labels when buffer-name set-buffer w3m-kill-buffer handler cons function (handler) (ignore handler) with-current-buffer if w3m-process-p w3m-process-start-process setq save-current-buffer (handler) (ignore handler)] 27 (#$ . 13082)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put w3m-process-do-with-temp-buffer lisp-indent-function 1 edebug-form-spec ((symbolp form) def-body)] 4) #@94 Run COMMAND with ARGUMENTS, and eval HANDLER asynchronously. (fn HANDLER COMMAND ARGUMENTS) (defalias 'w3m-process-start #[771 "\2033\306\211B\307#\262\310!\203\203\207\311!\207\310!\211\262!\2032\203.\207\311!\207\207\312\313 \313 B\n\314!\315!\203Q\316!\202S\315!\203a\316!\202q\315\317\320!!\203o\317\320!\202q\211\203\215\211@\321@A\"\210A\266\202\202y\210\322\323\324\325\324&.!\207" [w3m-async-exec w3m-terminal-coding-system w3m-process-connection-type process-connection-type default-process-coding-system coding-system-for-write #[257 "\300!\207" [w3m-process-start-after] 3 "\n\n(fn EXIT-STATUS)"] w3m-process-push w3m-process-p w3m-process-start-process w3m-process-start-after binary copy-sequence file-directory-p file-name-as-directory expand-file-name "~/" setenv apply call-process nil t coding-system-for-read process-environment w3m-profile-directory temporary-file-directory default-directory w3m-command-environment] 11 (#$ . 14245)]) #@20 (fn EXIT-STATUS) (defalias 'w3m-process-start-after #[257 "\211\247\203 \211\211\301U\207\211\204\302\211\207\303\304\"\302\207" [w3m-process-exit-status 0 nil format "%s"] 4 (#$ . 15272)]) #@57 Non-nil means that an after handler is being evaluated. (defvar w3m-process-background nil (#$ . 15477)) #@45 (fn PROCESS EVENT &optional IGNORE-QUEUE) (defalias 'w3m-process-sentinel #[770 "\306\307\"\210\310\311\312#\216\313\314!!\203\321r\314!q\210\315\316\"\210\317 \f\"\320!p  \321\211A\322H\211\203e\211@\313\323H!\203^\313\316H!\203^\211\323Hq\210p=\204^\324!\210A\266\202\2027\210\211A\322H\211\205\311\211@\313\323H!\203\302\313\316H!\203\302\211\323Hq\210\321\316H\325H\n \203\244\326   $\210\203\270\327\211A\262\242!\211\262!\203\244\211\322I\266*\266A\266\202\202j\262\266\206)\202\371\3302\371\f\211\205\366\211@A\325H=\203\357\317\f\"\331\330\321\"\210A\266\202\202\326\2620+\207" [w3m-process-inhibit-quit w3m-process-background inhibit-quit w3m-process-object w3m-process-queue w3m-process-realm set-process-sentinel ignore t make-closure #[0 "\302\300!\210\301?\205\303 \210\304 \207" [V0 V1 delete-process w3m-process-kill-stray-processes w3m-process-start-queued-processes] 2] buffer-name process-buffer accept-process-output 1 delq process-exit-status nil 3 0 insert-buffer-substring 2 w3m-process-set-authinfo w3m-process-p last throw w3m-process-user w3m-process-passwd w3m-current-buffer w3m-process-exit-status w3m-current-url] 20 (#$ . 15588)]) #@23 (fn PROCESS STRING) (defalias 'w3m-process-filter #[514 "\306\307!!\205\357r\307!q\210\310\311\312!b\210\211c\210\312!`\311\223\210\211\313\230?\205\356eb\210\314\315!\203a\316\225dU\203a\317\313!\210\320\n\321\322!\"\3231Z\324\203P\325\202Q\326\"\210ed|0\202\\\210\311\262\202\356\314\327!\203t\316\225dU\203ted|\202\356\314\330!\203\246\316\225dU\203\246\322\224\204\213 ;\204\217\331\332!\3331\241\324 \334P\"\210ed|0\202\356\210\311\202\356\314\335!\203\331\316\225dU\203\331\322\224\204\275\f;\204\306\336\337\321\340!\341Q!\3421\324\324\f\334P\"0\202\356\210\311\202\356\314\343!\203\316\225dU\203\322\224\204\360 ;\204\372\344\n78\322\224$\3451\f\324 \334P\"\210ed|0\202\356\210\311\202\356\314\346!\203N\316\225dU\203N\347\321\340!\311\"7\322\224\20418;\204:\350\n7\322\224#8\3511I\3248\334P\"0\202\356\210\311\202\356\314\352!\203~\316\225dU\203~9;\204f\331\353!9\3541y\3249\334P\"\210ed|0\202\356\210\311\202\356\355\356\311\310#\204\213\312!b\210\357\360\311\310#\205\356\321\322!\306 \311\211r:A\361H\211\205\351\211@\211\322H\211\262\203\342\306!\203\337q\210\362;\"\211\262\203\331A\230\203\325\363G\364\"\202\327\241\210\365 \210\202\342\366 \210A\266\202\202\240\262)\266\204+\207" [case-fold-search inhibit-read-only w3m-current-url w3m-process-proxy-passwd w3m-process-proxy-user w3m-process-passwd buffer-name process-buffer t nil process-mark "" looking-at "\\(?:Accept [^\n]+\n\\)*\\([^\n]+: accept\\? \\)(y/n)" 0 message w3m-process-y-or-n-p match-string 1 (error) process-send-string "y\n" "n\n" "\n?Accept unsecure SSL session:.*\n" "\\(\n?Wrong username or password\n\\)?Proxy Username for \\(?:.*\\): Proxy Password: " read-passwd "Proxy Password: " (error) "\n" "\\(\n?Wrong username or password\n\\)?Proxy Username for \\(.*\\): " read-from-minibuffer "Proxy Username for " 2 ": " (error) "\\(\n?Wrong username or password\n\\)?Username for [^\n]*\n?: Password: " w3m-process-read-passwd (error) "\\(\n?Wrong username or password\n\\)?Username for \\(.*\\)\n?: " w3m-decode-coding-string-with-priority w3m-process-read-user (error) "Enter PEM pass phrase:" "PEM pass phrase: " (error) search-forward "\nW3m-current-url:" re-search-backward "^W3m-\\(?:in-\\)?progress: \\([.0-9]+/[.0-9]+[a-zA-Z]?b\\)$" 3 assoc make-string 32 force-mode-line-update w3m-process-kill-stray-processes w3m-process-realm w3m-process-user w3m-process-ssl-passphrase w3m-process-object w3m-process-modeline-string] 12 (#$ . 16834)]) #@12 (fn STR) (defalias 'w3m-process-modeline-format #[257 "\3011,;\203!\302\303\304\"\203\305\306\307\310$\202\"\202*\311!\205*!0\207\210\310\207" [w3m-process-modeline-format (error) format string-match "/0\\([a-zA-Z]?b\\)\\'" replace-match "\\1" t nil functionp] 8 (#$ . 19382)]) #@36 (fn URL REALM USERNAME PASSWORD) (defalias 'w3m-process-set-authinfo #[1028 "\301\211\211\302!\303\"\211\262\203E\303\"\211\262\2036\303\"\211\262\203+\241\207BAB\241\207BCBAB\241\207\211BCBCBB\211\207" [w3m-process-authinfo-alist nil w3m-get-server-hostname assoc] 12 (#$ . 19685)]) #@78 Read a user name for URL and REALM. (fn URL &optional REALM IGNORE-HISTORY) (defalias 'w3m-process-read-user #[769 ";\205\301!\206 \211\302\204A\303\303\"A\"A\211\262\203A\211G\304U\203,\211@@\207\305\2038\306\307\"\2029\310\311\312\"\302\313$\207\314\203M\306\315\"\202N\316!\207" [w3m-process-authinfo-alist w3m-get-server-hostname nil assoc 1 completing-read format "Select username for %s: " "Select username: " mapcar #[257 "\211@@B\207" [] 3 "\n\n(fn X)"] t read-from-minibuffer "Username for %s: " "Username: "] 11 (#$ . 20017)]) #@97 Read a password for URL, REALM, and USERNAME. (fn URL &optional REALM USERNAME IGNORE-HISTORY) (defalias 'w3m-process-read-passwd #[1025 ";\205\301!\206 \211\302\302\302\"A\"A\"A\211\203%\204%\207\303\304\2032\304\305\"\2023\306;\203JG\307V\203J\310\311G\312\"\313Q\202K\314\"\315#\207" [w3m-process-authinfo-alist w3m-get-server-hostname assoc read-passwd format "Password for %s%%s: " "Password%s: " 0 " (default " make-string 42 ")" "" nil] 14 (#$ . 20585)]) #@223 Ask user a "y or n" question. Return t if answer is "y". NOTE: This function is designed to avoid annoying questions. So when the same questions is reasked, its previous answer is reused without prompt. (fn URL PROMPT) (defalias 'w3m-process-y-or-n-p #[514 "\302!\303!\304\211\305\306\307#\210\310 \"\211\262\203:A\235\203'\311\262\202J\312!\211\262\203JAB\241\210\202J\312!\211\262\203JCB B)\207" [query-replace-map w3m-process-accept-alist w3m-get-server-hostname copy-keymap nil define-key " " ignore assoc t y-or-n-p] 10 (#$ . 21081)]) (provide 'w3m-proc)