;ELC ;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan 5 20:53:42 2003 ;;; from file /afs/sipb/contrib/emacs/packages/emacs-w3m-1.3.3-src/w3m-proc.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-proc.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\303\304!\203\305\306\307\"\210\202#\303\300!\203#\310U\203#\305\306\311\"\210\301\207" [emacs-major-version require w3m-util boundp MULE autoload read-passwd "w3m-om" 19 "w3m-19"] 3) #@73 `w3m-process-sentinel' binds `inhibit-quit' according to this variable. (defvar w3m-process-inhibit-quit t (#$ . 855)) #@65 Number of seconds idle time waiting for processes to terminate. (defvar w3m-process-timeout 300 (#$ . 980)) #@38 If non-nil, kill the process surely. (defvar w3m-process-kill-surely (featurep 'meadow) (#$ . 1094)) #@45 The maximum limit of the working processes. (defconst w3m-process-max 5 (#$ . 1201)) #@21 Queue of processes. (defvar w3m-process-queue nil (#$ . 1292)) #@36 The last exit status of a process. (defvar w3m-process-exit-status nil (#$ . 1361)) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\307\303B\306\303!\204$\307\304B\306\304!\2040\307\305B\306\305!\204<\307\310B\306\310!\204I\307\311\303!\210\311\304!\210\311\305!\210\311\310!\207" [current-load-list w3m-process-authinfo-alist w3m-process-accept-alist w3m-process-user w3m-process-passwd w3m-process-realm boundp nil w3m-process-object make-variable-buffer-local] 2) #@66 Non-nil means that `w3m-process-with-wait-handler' is evaluated. (defvar w3m-process-waited nil (#$ . 1867)) #@32 User name of the proxy server. (defvar w3m-process-proxy-user nil (#$ . 1982)) #@31 Password of the proxy server. (defvar w3m-process-proxy-passwd nil (#$ . 2067)) #@58 Set coding systems for `w3m-command', and evaluate BODY. (defalias 'w3m-process-with-coding-system '(macro . #[(&rest body) "\301\302BB\207" [body 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))] 3 (#$ . 2153)])) (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) #@70 Set the environment variables according to ALIST, and evaluate BODY. (defalias 'w3m-process-with-environment '(macro . #[(alist &rest body) "\302\303\304\305D\306BB BBB\207" [alist body 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)))] 5 (#$ . 2688)])) (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) #@47 Return t if OBJECT is a `w3m-process' object. (defalias 'w3m-process-p #[(object) ":\205\301A!\205A\302H\303=\207" [object vectorp 0 w3m-process-object] 2 (#$ . 3514)]) (byte-code "\300\301\302\303#\210\300\304\305\306#\207" [put w3m-process-p byte-optimizer byte-compile-inline-expand w3m-process-new edebug-form-spec (form form form &optional form form)] 4) #@36 Return a new `w3m-process' object. (defalias 'w3m-process-new '(macro . #[(command arguments buffer &optional process handlers) "\305\211 E\306\307\n \f\257E\207" [command arguments buffer process handlers cons vector 'w3m-process-object] 7 (#$ . 3887)])) (defalias 'w3m-process-command '(macro . #[(object) "\301\211DD\207" [object car] 3])) (defalias 'w3m-process-arguments '(macro . #[(object) "\301\302DD\207" [object cdr car] 3])) (defalias 'w3m-process-buffer '(macro . #[(object) "\301\302D\303BB\207" [object aref cdr (1)] 3])) (defalias 'w3m-process-process '(macro . #[(object) "\301\302D\303BB\207" [object aref cdr (2)] 3])) (defalias 'w3m-process-handlers '(macro . #[(object) "\301\302D\303BB\207" [object aref cdr (3)] 3])) (put 'w3m-process-handler-new 'edebug-form-spec '(form form form)) (defalias 'w3m-process-handler-new '(macro . #[(buffer parent-buffer function) "\303 \nF\207" [buffer parent-buffer function vector] 4])) (defalias 'w3m-process-handler-buffer '(macro . #[(handler) "\301\302BB\207" [handler aref (0)] 3])) (defalias 'w3m-process-handler-parent-buffer '(macro . #[(handler) "\301\302BB\207" [handler aref (1)] 3])) (defalias 'w3m-process-handler-function '(macro . #[(handler) "\301\302BB\207" [handler aref (2)] 3])) #@143 Generate a new `w3m-process' object which is provided by HANDLER, ARGUMENTS and this buffer, regist it to `w3m-process-queue', and return it. (defalias 'w3m-process-push #[(handler arguments) "\306 B\n\"\211\204 B\307\310p\311\211$B\211\nB\307p\f #\f A\312\f A\312HBI\210)r A\313Hq\210 \211*\207" [w3m-command arguments w3m-process-queue x w3m-current-buffer handler assoc vector w3m-process-object nil 3 1 #1=#:--arg1--3908] 7 (#$ . 5161)]) #@30 Kill process PROCESS safely. (defalias 'w3m-process-kill-process #[(process) "\302!\205/\303\304\"\210\305\304\"\210\306!\307=\205/\310!\210 \205/\306!\307=\205/\311\312!\210\202 \207" [process w3m-process-kill-surely processp set-process-filter ignore set-process-sentinel process-status run kill-process sit-for 0.1] 3 (#$ . 5620)]) (put 'w3m-process-kill-process 'byte-optimizer 'byte-compile-inline-expand) #@243 Start a process spcified 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. (defalias 'w3m-process-start-process #[(object &optional no-sentinel) "A\306H\203 \203\337\307A\306H\310\"\210\202\337rA\311Hq\210\312\n\312\nB \313!\314!\203;\315!\202=\314!\203K\315!\202[\314\316\317!!\203Y\316\317!\202[ !\320\"\211#\203\203#@\"\321\"@\"A\"\210#A\211#\204l*@@$\322\323$p$@A%%&'\324('\"\205\256\325\306'\"\325\326'\"B)\211)@*)A+\320,A\306%I\210\327%\330\"\210\307% \203\325\310\202\326\331\"\210\332%!\210. \320\207" [object no-sentinel w3m-terminal-coding-system w3m-process-connection-type process-connection-type default-process-coding-system 2 set-process-sentinel ignore 1 binary copy-sequence file-directory-p file-name-as-directory expand-file-name "~/" nil setenv apply start-process string-match match-string 4 set-process-filter w3m-process-filter w3m-process-sentinel process-kill-without-query coding-system-for-write coding-system-for-read process-environment w3m-profile-directory temporary-file-directory default-directory w3m-command-environment pair #1=#:--dolist-temp--3909 command proc w3m-current-url url w3m-url-authinfo-regexp authinfo w3m-process-user w3m-process-passwd w3m-process-realm] 7 (#$ . 6049)]) #@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 #[nil "\301\302\303\215)\207" [num 0 last (byte-code "\306!\307\211\203w\n@\310 A\311H!\203. T\211\fV\203'\312\313\307\"\210\202p\314 !\210\202p\315 \" A\316H\203p A\316H\317 !\203o\320 \321\"\210\322 \321\"\210\323 !\324=\203o\325 !\210\203o\323 !\324=\203o\326\327!\210\202`)\nA\211\204\n*\307\207" [w3m-process-queue obj #1=#:--dolist-temp--3912 num w3m-process-max process reverse nil buffer-name 1 throw last w3m-process-start-process delq 2 processp set-process-filter ignore set-process-sentinel process-status run kill-process sit-for 0.1 w3m-process-kill-surely] 4)] 2 (#$ . 7519)]) #@89 Remove handlers related to the buffer BUFFER, and stop processes which have no handler. (defalias 'w3m-process-stop #[(buffer) "\303!\210\304\305\306\307 \"\"\305\310 \207" [buffer w3m-process-queue w3m-current-process w3m-cancel-refresh-timer delq nil mapcar #[(obj) "\306\307\310\311A\312H\"\"\211\203B@@@AB\313\314A\315HA\316HA\315H\310\317 \">\2030 \202=\313A\315H @\315H\320# B$B\202\302A\316H\203~A\316H\321\n!\203}\322\n\323\"\210\324\n\323\"\210\325\n!\326=\203}\327\n!\210 \203}\325\n!\326=\203}\330\331!\210\202n)A\312H\307\211\203\300 @\211\332H\211\204\230p;\203\244\333!\334!\203\260\335!\210\306\") A\211\204\211*\307)\207" [obj handlers process w3m-process-kill-surely handler #1=#:--dolist-temp--3913 delq nil mapcar #[(handler) " \302H=?\205\n \207" [buffer handler 1] 3] 3 vector w3m-process-object 1 2 #[(x) "\301H\207" [x 0] 2] #[(x) "p\211\204p;\203\302!\303!\203\304!\210\305 \")\306\207" [buffer w3m-work-buffer-list get-buffer buffer-live-p kill-buffer delq nil] 4] processp set-process-filter ignore set-process-sentinel process-status run kill-process sit-for 0.1 0 get-buffer buffer-live-p kill-buffer buffer w3m-work-buffer-list] 10] w3m-process-start-queued-processes] 5 (#$ . 8320) (list (current-buffer))]) (defalias 'w3m-process-shutdown #[nil "\306\306\306 \306\211\203\225 @\307\fA\310H!\203`\fA\311H\203`\fA\311H\312!\203_\313\314\"\210\315\314\"\210\316!\317=\203_\320!\210\203_\316!\317=\203_\321\322!\210\202O)\fA\310H\211\204mp;\203y\323!\324!\203\205\325!\210\326\") A\211\204+\306\207" [w3m-process-queue list w3m-process-authinfo-alist w3m-process-accept-alist obj #1=#:--dolist-temp--3914 nil buffer-name 1 2 processp set-process-filter ignore set-process-sentinel process-status run kill-process sit-for 0.1 get-buffer buffer-live-p kill-buffer delq process w3m-process-kill-surely buffer w3m-work-buffer-list] 4]) #@124 Generate the null handler, and evaluate BODY. When BODY is evaluated, the local variable `handler' keeps the null handler. (defalias 'w3m-process-with-null-handler '(macro . #[(&rest body) "\301\302\303\304\"BB\207" [body let ((handler (symbol-function 'identity))) append ((w3m-process-start-queued-processes))] 5 (#$ . 10316)])) (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) (defalias 'w3m-process-error-handler #[(error-data process) "\304 \"A\305H\306!\2039\307\310\"\210\311\310\"\210\312!\313=\2039\314!\210\n\2039\312!\313=\2039\315\316!\210\202*)\317 @ A\"\207" [process w3m-process-queue w3m-process-kill-surely error-data delq 2 processp set-process-filter ignore set-process-sentinel process-status run kill-process sit-for 0.1 signal] 3]) (put 'w3m-process-error-handler 'byte-optimizer 'byte-compile-inline-expand) #@168 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. (defalias 'w3m-process-with-wait-handler '(macro . #[(&rest body) "\302\303!\304C\305B\306\307\310\304\311\312\313\310\314BBEDC BBED\315\316\304\317\320D\321BB\322\323BB\324\325\326\327DD\330BB\331\306\332\333\334EEFF\335\333\316EDF\336\327D\337BBFF)\207" [result body gensym "--result--" let ((w3m-process-waited t)) when w3m-process-p setq handler lambda (x) (x) condition-case error (start (current-time)) w3m-current-process (w3m-process-inhibit-quit inhibit-quit) w3m-process-start-process (t) while eq process-status w3m-process-process ('run) (accept-process-output nil 0 200) (and w3m-process-timeout (< w3m-process-timeout (w3m-time-lapse-seconds start (current-time)))) w3m-process-error-handler (cons 'w3m-process-timeout nil) quit w3m-process-sentinel ("finished\n")] 17 (#$ . 11395)])) (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) #@432 (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. (defalias 'w3m-process-do '(macro . #[(spec &rest body) "@\206\305\306!A\305\307!\310 \311BC\312\313 \314B\fBB\315 \316B\317\320\321 \313 \322BBED\323\324\325 EFED\310 \310\326\327\330\327\331 DD\327\332\331 D FFDC\nBBDC\317\320 D\317 \333 DF\317\320\321 \313 EED\317 \333 DF FFEEE+\207" [spec this-handler form var body gensym "--tempvar--" "--this-handler--" let (handler) labels post-body (handler) post-handler (handler) if w3m-process-p setq (handler) nil funcall (or handler #'identity) handler list 'lambda quote 'post-handler w3m-process-start-process] 16 (#$ . 12521)])) (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) #@151 (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. (defalias 'w3m-process-do-with-temp-buffer '(macro . #[(spec &rest body) "@\206\306\307!A\306\310!\306\311!\312\n\313B \314BD\315\316\f\317 E\320\321 BB\322 DEE\323\f\317 E\324\325\326\f\316\f\317 FED\327\330\fEEED\312\f\312\317\331\332\331\333\fDD\331\334\333\fD\n \257FDC\321 BBEDC\335\325\fD\335\n\f\336\fDF\335\325\326\f\316\f\n FED\335\n\f\336\fDF\fFFEEE,\207" [spec temp-buffer this-handler form var body gensym "--tempvar--" "--this-handler--" "--temp-buffer--" let (handler) ((w3m-get-buffer-create (generate-new-buffer-name w3m-work-buffer-name))) labels post-body handler unwind-protect with-current-buffer w3m-kill-buffer post-handler unless w3m-process-p setq funcall (or handler #'identity) list 'lambda quote 'post-handler if w3m-process-start-process] 17 (#$ . 13695)])) (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) #@47 Run `w3m-command' with HANDLER and ARGUMENTS. (defalias 'w3m-process-start #[(handler &rest arguments) "\306 \"\n\203\251 \307\310!\307\311!\211\"\312L\210 \312L\210\"\313\314\315\316\317D\316 D\316\"D\320\257EL\210 \321L\210\313\322C\"J\322\fEE\323 \")\211\211#:\205^\324#A!\205^#A\325H\326=)\203r\f\203k\202\247\327!\202\247 J\f\"\211\211#:\205\221\324#A!\205\221#A\325H\326=)\203\245\f\203\236\202\247\327!\202\247,\207\330\331$\331$B%&'()\332*!\333+!\203\315\334+!\202\317,\333+!\203\335\334+!\202\355\333\335\336!!\203\353\335\336!\202\355,-,*.\312/\2110\2030@/\337/@/A\"\2100A\2110\204\376*\315\3401\312\341\312 &.!\207" [w3m-command-arguments arguments w3m-async-exec handler #1=#:--this-handler--3915 #2=#:--G3916--3919 append make-symbol "--G3917--" "--G3916--" nil lambda (&rest --cl-rest--) apply quote #[(#3=#:G3920 #4=#:G3921 exit-status handler) "J \n\"\211\211:\205\304 A!\205 A\305H\306=)?\205&\n\206$\307 !\207" [#3# exit-status handler object vectorp 0 w3m-process-object identity] 4] --cl-rest-- #[(exit-status handler) "\301!\207" [exit-status w3m-process-start-after] 2] exit-status w3m-process-push vectorp 0 w3m-process-object w3m-process-start-process w3m-process-start-after binary copy-sequence file-directory-p file-name-as-directory expand-file-name "~/" setenv call-process t #5=#:--G3917--3918 object w3m-terminal-coding-system w3m-process-connection-type process-connection-type default-process-coding-system coding-system-for-write coding-system-for-read process-environment w3m-profile-directory temporary-file-directory default-directory w3m-command-environment pair #6=#:--dolist-temp--3930 w3m-command] 9 (#$ . 14811)]) (defalias 'w3m-process-start-after #[(exit-status) "\247\203 \211\302U\207\204\303\211\207\304\305\306\"!\303\207" [exit-status w3m-process-exit-status 0 nil string-as-multibyte format "%s"] 4]) (defalias 'w3m-process-sentinel #[(process event) "\306\307\"\210 \310\216\311\312!!\203\277r\312!q\210\313 \f\"\314!p  \315A\316H\315\211\203k@\311\317H!\203b\317Hq\210p=\204b\320!\210A\211\204B*A\316H\315\211 \203\271 @\311\317H!\203\260\317Hq\210\315\321H!\"\203\247\322#$\210\323H!\210* A\211 \204z. \315\202\302\324\325\215*\207" [process w3m-process-inhibit-quit inhibit-quit w3m-process-object w3m-process-queue w3m-process-realm set-process-sentinel ignore ((byte-code "\301!\210\302 \207" [process delete-process w3m-process-start-queued-processes] 2)) buffer-name process-buffer delq process-exit-status nil 3 0 insert-buffer 1 w3m-process-set-authinfo 2 last (byte-code "\304\211\203%\n@ A\305H=\203\306 \"\307\310\304\"\210\nA\211\204*\304\207" [w3m-process-queue obj #1=#:--dolist-temp--3933 process nil 2 delq throw last] 4) w3m-process-user w3m-process-passwd obj passwd user realm buffer exit-status x #2=#:--dolist-temp--3931 #3=#:--dolist-temp--3932 w3m-current-buffer w3m-process-exit-status w3m-current-url] 6]) (defalias 'w3m-process-filter #[(process string) "\306\307!!\205\355r\307!q\210\310\211\311!b\210 c\210\311!`\310\223\210 \312\230?\205\354eb\210\313\314!\203K\315\225dU\203K\316\312!\210\317\f\320\321!\"\322\323\324\217)\202\354\313\325!\203o\315\225dU\203o\326\224\204c-;\204h\327\330!-\331\332\333\217\202\354\313\334!\203\230\315\225dU\203\230\326\224\204\207.;\204\221\335\336\320\321!\337Q!.\340\341\342\217\202\354\313\343!\203\302\315\225dU\203\302\326\224\204\260/;\204\273\344\f01\326\224$/\345\346\347\217\202\354\313\350!\205\354\315\225dU\205\354\320\321!0\326\224\204\3371;\204\350\351\f0\326\224#1\352\353\354\217+\207" [process case-fold-search buffer-read-only string w3m-current-url yn buffer-name process-buffer nil process-mark "" looking-at "\\(Accept [^\n]+\n\\)*\\([^\n]+: accept\\? \\)(y/n)" 0 message w3m-process-y-or-n-p match-string 2 #1=#:G3934 (byte-code "\302 \203\n\303\202 \304\"\210ed|\207" [process yn process-send-string "y\n" "n\n"] 3) ((error)) "\\(\n?Wrong username or password\n\\)?Proxy Username for \\(.*\\): Proxy Password: " 1 read-passwd "Proxy Password: " #2=#:G3935 (byte-code "\302 \303P\"\210ed|\207" [process w3m-process-proxy-passwd process-send-string "\n"] 4) ((error)) "\\(\n?Wrong username or password\n\\)?Proxy Username for \\(.*\\): " read-from-minibuffer "Proxy Username for " ": " #3=#:G3936 (byte-code "\302 \303P\"\207" [process w3m-process-proxy-user process-send-string "\n"] 4) ((error)) "\\(\n?Wrong username or password\n\\)?Username for [^\n]*\n?: Password: " w3m-process-read-passwd #4=#:G3937 (byte-code "\302 \303P\"\210ed|\207" [process w3m-process-passwd process-send-string "\n"] 4) ((error)) "\\(\n?Wrong username or password\n\\)?Username for \\(.*\\)\n?: " w3m-process-read-user #5=#:G3938 (byte-code "\302 \303P\"\207" [process w3m-process-user process-send-string "\n"] 4) ((error)) w3m-process-proxy-passwd w3m-process-proxy-user w3m-process-passwd w3m-process-realm w3m-process-user] 5]) #@33 Extract a server root from URL. (defalias 'w3m-process-get-server-root #[(url) "\302\303\"\203 \304\225\305O\302 \"\203$\306\307\"\310\304\225\305OQ\202%)\302\311\"\2034\306\307\"\227\207\207" [url w3m-url-authinfo-regexp string-match "\\`about://[^/?#]+/" 0 nil match-string 1 "//" "\\`[^:/?#]+://\\([^/?#]+\\)"] 5 (#$ . 19922)]) (defalias 'w3m-process-set-authinfo #[(url realm username password) "\306\211\211\307!\310 \"\211\203L\310 \f\"\211\203;\310\n \"\211\203.\n \241\202\\ \n B AB\241\202\\\f \n BCB\fAB\241\202\\  \n BCBCB B\211,\207" [url root z y x w3m-process-authinfo-alist nil w3m-process-get-server-root assoc realm username password] 5]) #@37 Read a user name for URL and REALM. (defalias 'w3m-process-read-user #[(url &optional realm ignore-history) ";\205\306!\n\206 \307 \204L\310\n\310 \"A\"A\211\203L\fG\311U\2035\f\211@@)\202Z\312 \203A\313\314 \"\202B\315\316\317\f\"\307\320$\202Z\321 \203X\313\322 \"\202Y\323!+\207" [url root realm ident alist ignore-history w3m-process-get-server-root nil assoc 1 completing-read format "Select username for %s: " "Select username: " mapcar #[(x) "@@B\207" [x] 2] t read-from-minibuffer "Username for %s: " "Username: " w3m-process-authinfo-alist x] 6 (#$ . 20628)]) #@47 Read a password for URL, REALM, and USERNAME. (defalias 'w3m-process-read-passwd #[(url &optional realm username ignore-history) ";\205\306!\n\206 \307\f\307\n\307 \"A\"A\"A\211\203,\204,\202`\310\311 \2039\311\312 \"\202:\313;\203ZG\314V\203Z\315\316!\204Z\317\320G\321\"\322Q\202[\323\"\324#+\207" [url root realm ident username w3m-process-authinfo-alist w3m-process-get-server-root assoc read-passwd format "Password for %s%%s: " "Password%s: " 0 featurep xemacs " (default " make-string 42 ")" "" nil pass ignore-history] 8 (#$ . 21228)]) #@206 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. (defalias 'w3m-process-y-or-n-p #[(url prompt) "\306\211\307!\310 \f\"\211\203/ A\235\203\311\202>\312 !\211\203> AB\241\210\202>\312 !\211\203> CB\fB\n+\207" [url root answer elem w3m-process-accept-alist prompt nil w3m-process-get-server-root assoc t y-or-n-p] 4 (#$ . 21811)]) (provide 'w3m-proc)