Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
url-about.elc	2.51 KB	-rw-r--r--
url-auth.elc	20.29 KB	-rw-r--r--
url-cache.elc	6.7 KB	-rw-r--r--
url-cid.elc	1.24 KB	-rw-r--r--
url-cookie.elc	23.96 KB	-rw-r--r--
url-dav.elc	20.14 KB	-rw-r--r--
url-dired.elc	2.78 KB	-rw-r--r--
url-domsuf.elc	1.78 KB	-rw-r--r--
url-expand.elc	4.04 KB	-rw-r--r--
url-file.elc	7.18 KB	-rw-r--r--
url-ftp.elc	778 B	-rw-r--r--
url-future.elc	9.17 KB	-rw-r--r--
url-gw.elc	6.68 KB	-rw-r--r--
url-handlers.elc	20.17 KB	-rw-r--r--
url-history.elc	5.46 KB	-rw-r--r--
url-http.elc	38.02 KB	-rw-r--r--
url-imap.elc	1.93 KB	-rw-r--r--
url-irc.elc	2.52 KB	-rw-r--r--
url-ldap.elc	6.06 KB	-rw-r--r--
url-mailto.elc	2.94 KB	-rw-r--r--
url-methods.elc	4.1 KB	-rw-r--r--
url-misc.elc	3.27 KB	-rw-r--r--
url-news.elc	7.36 KB	-rw-r--r--
url-nfs.elc	4.23 KB	-rw-r--r--
url-parse.elc	17.39 KB	-rw-r--r--
url-privacy.elc	1.61 KB	-rw-r--r--
url-proxy.elc	1.82 KB	-rw-r--r--
url-queue.elc	14.9 KB	-rw-r--r--
url-tramp.elc	2.97 KB	-rw-r--r--
url-util.elc	17.34 KB	-rw-r--r--
url-vars.elc	14.89 KB	-rw-r--r--
url.elc	9.12 KB	-rw-r--r--

Code Editor : url-queue.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\312\313\314\315\316&	\210\303\317\305\306\320DD\321\311\312\313\314\315\316&	\207" [require browse-url url-parse custom-declare-variable url-queue-parallel-processes funcall function #[0 "\300\207" [6] 1] "The number of concurrent processes." :version "24.1" :type integer :group url url-queue-timeout #[0 "\300\207" [5] 1] "How long to let a job live once it's started (in seconds)."] 10)
(defvar url-queue nil)
(defvar url-queue-progress-timer nil)
#@68 compiler-macro for inlining `url-queue-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-queue-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-queue-p (and (memq (type-of cl-x) cl-struct-url-queue-tags) t)) nil] 9 (#$ . 928)])
(put 'url-queue-p 'compiler-macro 'url-queue-p--cmacro)
#@13

(fn CL-X)
(defalias 'url-queue-p #[257 "\301!>\205	�\302\207" [cl-struct-url-queue-tags type-of t] 3 (#$ . 1255)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put url-queue-p side-effect-free error-free put url-queue cl-deftype-satisfies] 5)
#@70 compiler-macro for inlining `url-queue-url'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-queue-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-queue-url (progn (or (url-queue-p cl-x) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 1))) nil] 9 (#$ . 1525)])
(put 'url-queue-url 'compiler-macro 'url-queue-url--cmacro)
#@58 Access slot "url" of `url-queue' struct CL-X.

(fn CL-X)
(defalias 'url-queue-url #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-url-queue-tags type-of signal wrong-type-argument url-queue 1] 5 (#$ . 1907)])
(byte-code "\300\301\302\303#\300\207" [function-put url-queue-url side-effect-free t] 4)
#@75 compiler-macro for inlining `url-queue-callback'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-queue-callback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-queue-callback (progn (or (url-queue-p cl-x) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 2))) nil] 9 (#$ . 2231)])
(put 'url-queue-callback 'compiler-macro 'url-queue-callback--cmacro)
#@63 Access slot "callback" of `url-queue' struct CL-X.

(fn CL-X)
(defalias 'url-queue-callback #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-url-queue-tags type-of signal wrong-type-argument url-queue 2] 5 (#$ . 2638)])
(byte-code "\300\301\302\303#\300\207" [function-put url-queue-callback side-effect-free t] 4)
#@73 compiler-macro for inlining `url-queue-cbargs'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-queue-cbargs--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-queue-cbargs (progn (or (url-queue-p cl-x) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 3))) nil] 9 (#$ . 2977)])
(put 'url-queue-cbargs 'compiler-macro 'url-queue-cbargs--cmacro)
#@61 Access slot "cbargs" of `url-queue' struct CL-X.

(fn CL-X)
(defalias 'url-queue-cbargs #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-url-queue-tags type-of signal wrong-type-argument url-queue 3] 5 (#$ . 3374)])
(byte-code "\300\301\302\303#\300\207" [function-put url-queue-cbargs side-effect-free t] 4)
#@74 compiler-macro for inlining `url-queue-silentp'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-queue-silentp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-queue-silentp (progn (or (url-queue-p cl-x) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 4))) nil] 9 (#$ . 3707)])
(put 'url-queue-silentp 'compiler-macro 'url-queue-silentp--cmacro)
#@62 Access slot "silentp" of `url-queue' struct CL-X.

(fn CL-X)
(defalias 'url-queue-silentp #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-url-queue-tags type-of signal wrong-type-argument url-queue 4] 5 (#$ . 4109)])
(byte-code "\300\301\302\303#\300\207" [function-put url-queue-silentp side-effect-free t] 4)
#@73 compiler-macro for inlining `url-queue-buffer'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-queue-buffer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-queue-buffer (progn (or (url-queue-p cl-x) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 5))) nil] 9 (#$ . 4445)])
(put 'url-queue-buffer 'compiler-macro 'url-queue-buffer--cmacro)
#@61 Access slot "buffer" of `url-queue' struct CL-X.

(fn CL-X)
(defalias 'url-queue-buffer #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-url-queue-tags type-of signal wrong-type-argument url-queue 5] 5 (#$ . 4842)])
(byte-code "\300\301\302\303#\300\207" [function-put url-queue-buffer side-effect-free t] 4)
#@77 compiler-macro for inlining `url-queue-start-time'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-queue-start-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-queue-start-time (progn (or (url-queue-p cl-x) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 6))) nil] 9 (#$ . 5175)])
(put 'url-queue-start-time 'compiler-macro 'url-queue-start-time--cmacro)
#@65 Access slot "start-time" of `url-queue' struct CL-X.

(fn CL-X)
(defalias 'url-queue-start-time #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-url-queue-tags type-of signal wrong-type-argument url-queue 6] 5 (#$ . 5592)])
(byte-code "\300\301\302\303#\300\207" [function-put url-queue-start-time side-effect-free t] 4)
#@80 compiler-macro for inlining `url-queue-pre-triggered'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-queue-pre-triggered--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-queue-pre-triggered (progn (or (url-queue-p cl-x) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 7))) nil] 9 (#$ . 5937)])
(put 'url-queue-pre-triggered 'compiler-macro 'url-queue-pre-triggered--cmacro)
#@68 Access slot "pre-triggered" of `url-queue' struct CL-X.

(fn CL-X)
(defalias 'url-queue-pre-triggered #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-url-queue-tags type-of signal wrong-type-argument url-queue 7] 5 (#$ . 6369)])
(byte-code "\300\301\302\303#\300\207" [function-put url-queue-pre-triggered side-effect-free t] 4)
#@83 compiler-macro for inlining `url-queue-inhibit-cookiesp'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-queue-inhibit-cookiesp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-queue-inhibit-cookiesp (progn (or (url-queue-p cl-x) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 8))) nil] 9 (#$ . 6723)])
(put 'url-queue-inhibit-cookiesp 'compiler-macro 'url-queue-inhibit-cookiesp--cmacro)
#@71 Access slot "inhibit-cookiesp" of `url-queue' struct CL-X.

(fn CL-X)
(defalias 'url-queue-inhibit-cookiesp #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-url-queue-tags type-of signal wrong-type-argument url-queue 8] 5 (#$ . 7170)])
(byte-code "\300\301\302\303#\300\207" [function-put url-queue-inhibit-cookiesp side-effect-free t] 4)
#@81 compiler-macro for inlining `url-queue-context-buffer'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-queue-context-buffer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-queue-context-buffer (progn (or (url-queue-p cl-x) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 9))) nil] 9 (#$ . 7533)])
(put 'url-queue-context-buffer 'compiler-macro 'url-queue-context-buffer--cmacro)
#@69 Access slot "context-buffer" of `url-queue' struct CL-X.

(fn CL-X)
(defalias 'url-queue-context-buffer #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-url-queue-tags type-of signal wrong-type-argument url-queue 9] 5 (#$ . 7970)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put url-queue-context-buffer side-effect-free t defalias copy-url-queue copy-sequence] 4)
#@169 compiler-macro for inlining `make-url-queue'.

(fn CL-WHOLE &cl-quote &key URL CALLBACK CBARGS SILENTP BUFFER START-TIME PRE-TRIGGERED INHIBIT-COOKIESP CONTEXT-BUFFER)
(defalias 'make-url-queue--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300	\311\"A@	\211\203g�\211@\312>\203O�\211AA\262\202<�\313>A@\203^�\314\262\202<�\315\316@\"\210\202<�\210\317\320\321\314\314&\207" [plist-member :url :callback :cbargs :silentp :buffer :start-time :pre-triggered :inhibit-cookiesp :context-buffer (:url :callback :cbargs :silentp :buffer :start-time :pre-triggered :inhibit-cookiesp :context-buffer :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:url :callback :cbargs :silentp :buffer :start-time :pre-triggered :inhibit-cookiesp :context-buffer)" cl--defsubst-expand (url callback cbargs silentp buffer start-time pre-triggered inhibit-cookiesp context-buffer) (cl-block make-url-queue (record 'url-queue url callback cbargs silentp buffer start-time pre-triggered inhibit-cookiesp context-buffer))] 26 (#$ . 8376)])
(put 'make-url-queue 'compiler-macro 'make-url-queue--cmacro)
#@149 Constructor for objects of type `url-queue'.

(fn &key URL CALLBACK CBARGS SILENTP BUFFER START-TIME PRE-TRIGGERED INHIBIT-COOKIESP CONTEXT-BUFFER)
(defalias 'make-url-queue #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300	\311\"A@	\211\203g�\211@\312>\203O�\211AA\262\202<�\313>A@\203^�\314\262\202<�\315\316@\"\210\202<�\210\317\320\n\n\n\n\n\n\n\n\n&\n\207" [plist-member :url :callback :cbargs :silentp :buffer :start-time :pre-triggered :inhibit-cookiesp :context-buffer (:url :callback :cbargs :silentp :buffer :start-time :pre-triggered :inhibit-cookiesp :context-buffer :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:url :callback :cbargs :silentp :buffer :start-time :pre-triggered :inhibit-cookiesp :context-buffer)" record url-queue] 21 (#$ . 9594)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put make-url-queue side-effect-free t cl-struct-define url-queue nil cl-structure-object record ((cl-tag-slot) (url) (callback) (cbargs) (silentp) (buffer) (start-time) (pre-triggered) (inhibit-cookiesp) (context-buffer)) cl-struct-url-queue-tags] 11)
#@384 Retrieve URL asynchronously and call CALLBACK with CBARGS when finished.
This is like `url-retrieve' (which see for details of the arguments),
but with limits on the degree of parallelism.  The variable
`url-queue-parallel-processes' sets the number of concurrent processes.
The variable `url-queue-timeout' sets a timeout.

(fn URL CALLBACK &optional CBARGS SILENT INHIBIT-COOKIES)
(defalias 'url-queue-retrieve #[1282 "\301\302\300\303\211\211p&\nC\"\304 \207" [url-queue append record nil url-queue-setup-runners] 18 (#$ . 10822)])
(defalias 'url-queue-setup-runners #[0 "\304\305\211\203H�\211@\306!	>\204�\307\310\300D\"\210\211\311H\2043�\306!	>\204-�\307\310\300D\"\210\211\312H\203:�T\262\202A�\204A�\211\262A\266\202\202�\210\211\205{�\nW\205{�\306!	>\204b�\307\310\300D\"\210\211\211\312\313I\266\314\315\305\316#\210?\205{�\314\317\211\320#\211\207" [url-queue cl-struct-url-queue-tags url-queue-parallel-processes url-queue-progress-timer 0 nil type-of signal wrong-type-argument 6 7 t run-with-idle-timer 0.01 url-queue-run-queue 1 url-queue-check-progress] 8])
(defalias 'url-queue-run-queue #[0 "\303 \210\304\305\211\2036�\211@\306!	>\204�\307\310\300D\"\210\211\311H\203(�T\262\202/�\204/�\211\262A\266\202\202�\210\211\205[�\nW\205[�\306!	>\204P�\307\310\300D\"\210\211\211\311\312 I\266\313!\207" [url-queue cl-struct-url-queue-tags url-queue-parallel-processes url-queue-prune-old-entries 0 nil type-of signal wrong-type-argument 6 float-time url-queue-start-retrieve] 8])
(defalias 'url-queue-check-progress #[0 "\205�	\203�\302 \207\303!\210\304\211\207" [url-queue-progress-timer url-queue url-queue-run-queue cancel-timer nil] 2])
#@19

(fn STATUS JOB)
(defalias 'url-queue-callback-function #[514 "\302\"@\303=\203!�A@A@\304=\203!�\305\306\307A@\233\310\"!\210\311 \210\312\313!	>\2044�\314\315\300D\"\210\316H\313!	>\204H�\314\315\300D\"\210\307HB\"\207" [url-queue cl-struct-url-queue-tags delq :error connection-failed url-queue-remove-jobs-from-host plist-get 3 :host url-queue-run-queue apply type-of signal wrong-type-argument 2] 9 (#$ . 12533)])
#@13

(fn HOST)
(defalias 'url-queue-remove-jobs-from-host #[257 "\303\211\203A�\211@\304\305!	>\204�\306\307\300D\"\210\310H!\305!\n>\204+�\306\307\311D\"\210\211\312H\262\232\203:�\211B\262A\266\202\202�\210\211\211\205Y�\211@\313!\210\314\"A\266\202\202C�\262\207" [url-queue cl-struct-url-queue-tags cl-struct-url-tags nil url-generic-parse-url type-of signal wrong-type-argument 1 url 4 url-queue-kill-job delq] 9 (#$ . 12972)])
#@12

(fn JOB)
(defalias 'url-queue-start-retrieve #[257 "\302!>\204�\303\304\305D\"\210\211\211\306\3071\222�r\310\302!>\204(�\303\304\305D\"\210\311H!\203E�\302!>\204?�\303\304\305D\"\210\311H\202F�pq\210\312\313\302!>\204[�\303\304\305D\"\210\314H\315C\302!>\204s�\303\304\305\nD\"\210\316H\302	!>\204\210�\303\304\305D\"\210\317H%*0\202\224�\210\320I\207" [cl-struct-url-queue-tags url-request-noninteractive type-of signal wrong-type-argument url-queue 5 (error) buffer-live-p 9 t url-retrieve 1 url-queue-callback-function 4 8 nil] 13 (#$ . 13427)])
(defalias 'url-queue-prune-old-entries #[0 "\303\211\203D�\211@\304!	>\204�\305\306\300D\"\210\211\307H\203=�\310\n\311\304!	>\2040�\305\306\300D\"\210\307H!\"\203=�\211B\262A\266\202\202�\210\211\211\205\\�\211@\312!\210\313\"A\266\202\202F�\262\207" [url-queue cl-struct-url-queue-tags url-queue-timeout nil type-of signal wrong-type-argument 6 time-less-p time-since url-queue-kill-job delq] 10])
#@12

(fn JOB)
(defalias 'url-queue-kill-job #[257 "\301\302!>\204�\303\304\305D\"\210\306H!\203K�\307\310\302!>\204(�\303\304\305D\"\210\306H!\211\262\203J�\311\312\"\210\3131B�\314!0\202F�\210\202�\210\202�\210r\301\302!>\204\\�\303\304\305D\"\210\306H!\203\217�\315\302!>\204s�\303\304\305D\"\210\306H!\203\217�\302!>\204\211�\303\304\305D\"\210\211\306H\202\222�\316\317!q\210\320\302!>\204\244�\303\304\305D\"\210\321H\322\323\324\325ED\302!>\204\275�\303\304\305D\"\210\326HB\")\207" [cl-struct-url-queue-tags bufferp type-of signal wrong-type-argument url-queue 5 nil get-buffer-process set-process-sentinel ignore (error) delete-process buffer-live-p generate-new-buffer " *temp*" apply 2 :error error url-queue-timeout "Queue timeout exceeded" 3] 8 (#$ . 14437)])
(provide 'url-queue)

${this.title}

Code Editor : url-queue.elc