WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/url
Viewing File: /usr/share/emacs/24.3/lisp/url/url.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:51:07 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url.el
;;; in Emacs version 24.3.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\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\313\314\315\316\317DD\320\321\322\323\324&\207" [require mailcap url-vars url-cookie url-history url-expand url-privacy url-methods url-proxy url-parse url-util custom-declare-variable url-configuration-directory funcall function #[0 "\300\301\302\"\207" [locate-user-emacs-file "url/" ".url/"] 3 "\n\n(fn)"] "Directory used by the URL package for cookies, history, etc." :type directory :group url] 8)
#@104 Setup the URL package.
This is to avoid conflict with user settings if URL is dumped with
Emacs.

(fn)
(defalias 'url-do-setup #[0 "?\205i\305 \210\306 \210\307\310\311\312#\210\307\313\311\314#\210	\206\315\316\n\"\206(\315\317\n\"\320 \210\321 \210\322 \210\323	!\210\324\325\f\"?\205M\326\327!\206M\326\330!\206M\326\325!\211\203^\325\331\332\333\334#\335QB\fB\210\336 \210\337\340!\210\341\211\207" [url-setup-done url-cookie-file url-configuration-directory url-history-file url-proxy-services mailcap-parse-mailcaps mailcap-parse-mimetypes url-register-auth-scheme "basic" nil 4 "digest" 7 expand-file-name "cookies" "history" url-history-parse-history url-history-setup-save-timer url-cookie-setup-save-timer url-cookie-parse-file assoc "no_proxy" getenv "NO_PROXY" "no_PROXY" "\\(" mapconcat #[257 "\211\300U\203\301\207\211\302U\203\303\207\211\304U\203\305\207\211\306U\203 \307\207\211\310U\203(\311\207\312!\207" [44 "\\|" 32 #1="" 46 "\\." 42 ".*" 63 "." char-to-string] 3 "\n\n(fn X)"] #1# "\\)" url-setup-privacy-info run-hooks url-load-hook t] 7 (#$ . 1098)])
#@268 New buffer into which the retrieval will take place.
Sometimes while retrieving a URL, the URL library needs to use another buffer
than the one returned initially by `url-retrieve'.  In this case, it sets this
variable in the original buffer as a forwarding pointer.
(defvar url-redirect-buffer nil (#$ . 2205))
(defvar url-retrieve-number-of-calls 0)
(autoload 'url-cache-prune-cache "url-cache")
#@1444 Retrieve URL asynchronously and call CALLBACK with CBARGS when finished.
URL is either a string or a parsed URL.  If it is a string
containing characters that are not valid in a URI, those
characters are percent-encoded; see `url-encode-url'.

CALLBACK is called when the object has been completely retrieved, with
the current buffer containing the object, and any MIME headers associated
with it.  It is called as (apply CALLBACK STATUS CBARGS).
STATUS is a plist representing what happened during the request,
with most recent events first, or an empty list if no events have
occurred.  Each pair is one of:

(:redirect REDIRECTED-TO) - the request was redirected to this URL
(:error (ERROR-SYMBOL . DATA)) - an error occurred.  The error can be
signaled with (signal ERROR-SYMBOL DATA).

Return the buffer URL will load into, or nil if the process has
already completed (i.e. URL was a mailto URL or similar; in this case
the callback is not called).

The variables `url-request-data', `url-request-method' and
`url-request-extra-headers' can be dynamically bound around the
request; dynamic binding of other variables doesn't necessarily
take effect.

If SILENT, then don't message progress reports and the like.
If INHIBIT-COOKIES, cookies will neither be stored nor sent to
the server.
If URL is a multibyte string, it will be encoded as utf-8 and
URL-encoded before it's used.

(fn URL CALLBACK &optional CBARGS SILENT INHIBIT-COOKIES)
(defalias 'url-retrieve #[1282 "\300\301B%\207" [url-retrieve-internal nil] 11 (#$ . 2611)])
#@582 Internal function; external interface is `url-retrieve'.
CBARGS is the list of arguments that the callback function will
receive; its first element should be a plist specifying what has
happened so far during the request, as described in the docstring
of `url-retrieve' (if in doubt, specify nil).

If SILENT, don't message progress reports and the like.
If INHIBIT-COOKIES, cookies will neither be stored nor sent to
the server.
If URL is a multibyte string, it will be encoded as utf-8 and
URL-encoded before it's used.

(fn URL CALLBACK CBARGS &optional SILENT INHIBIT-COOKIES)
(defalias 'url-retrieve-internal #[1283 "\305 \210\306 \210;\203\307\310G\311$\210\312!\262\313!\204%\314!\262\315!\204/\316\317!\210\310H>\204=\316\320\321\322#\210\323H\204K\316\324\325!\"\210\310H>\204Y\316\320\326\322#\210\211\327I\266\310H>\204n\316\320\330\322#\210\211\331?I\266\332	\333\246!\203\213\334\335\336D\337\335\340\334EDC\217\210	T\341\310H>\204\235\316\320\321\322#\210\323H\342\"\310H>\204\260\316\320\343\322#\210\344H\205\314\345\211\310H>\204\307\316\320\343\322#\210\344H\"\311\341\310H>\204\335\316\320\321\322#\210\323H\346\"\311\262\n\203\362\347\262\350\262\211\203			#\262)\202	!\262\203rq\210\351\"\210)\f\203(\352	\353 \"\210)\207" [cl-struct-url-tags url-retrieve-number-of-calls url-using-proxy url-current-object url-history-track url-do-setup url-gc-dead-buffers set-text-properties 0 nil url-encode-url vectorp url-generic-parse-url functionp error "Must provide a callback function to url-retrieve" "%s accessing a non-%s" url-type url 1 "Bad url: %s" url-recreate-url url-silent 10 url-use-cookies 11 zerop 1000 #1=#:err funcall #[0 "\300 \207" [url-cache-prune-cache] 1 "\n\n(fn)"] file-error #[257 "\300\301\"\207" [message "Error when expiring the cache: %s"] 4 "\n\n(fn ERROR)"] url-scheme-get-property loader url-host 4 url-find-proxy-for-url asynchronous-p t url-proxy apply url-history-update-url current-time] 13 (#$ . 4160)])
#@242 Retrieve URL synchronously.
Return the buffer containing the data, or nil if there are no data
associated with it (the case for dired, info, or mailto URLs that need
no further processing).  URL is either a string or a parsed URL.

(fn URL)
(defalias 'url-retrieve-synchronously #[257 "\301 \210\302C\302C\211\303\304\305\306\307\310		\"\311\"\312\313%\"\240\210\211@\205\255\314@!C@\204\252\315\316\317@@$\210\320\321@\"\203L\211\314\320\321@\"\240!\240\210\202&\211@\203r\322@!\323>\203r\211@\314@!\206e@=\203r\324@!\210\325\240\210\326\327\304\330\331\307\310!\332\"\333\334%D\335\327\336\326EDC\217\204&\211@\203&\203\233\324@!\210\211?\205\245\314@!\240\210\202&\210\211@\207" [quit-flag url-do-setup nil url-retrieve make-byte-code 128 "\302\303\304p#\210\300\305\240\210\301p\240\207" vconcat vector [url-debug retrieval "Synchronous fetching done (%S)" t] 5 "\n\n(fn &rest IGNORED)" get-buffer-process url-debug retrieval "Spinning in url-retrieve-synchronously: %S (%S)" buffer-local-value url-redirect-buffer process-status (closed exit signal failed) delete-process t #1=#:err funcall 0 "\302\303\300@!)\207" [inhibit-quit nil accept-process-output] 2 "\n\n(fn)" quit #[257 "\301\302\303!\207" [quit-flag t eval (ignore nil)] 3 "\n\n(fn IGNORED)"]] 13 (#$ . 6211)])
(defalias 'url-mm-callback #[128 "\301\302!\303p!\210r\304\305!!q\210\306!\307=\2033\310\311\3128A!\313\314\315\316DDE\"\210\317\320!\210\321p!\202E\322p!\210\323\324\313\325\315\316DDE\325\302$)\207" [url-current-object mm-dissect-buffer t url-mark-buffer-as-dead generate-new-buffer url-recreate-url mm-display-part external set-process-sentinel get-buffer-process 3 lambda (proc event) mm-destroy-parts quote message "Viewing externally" kill-buffer display-buffer add-hook kill-buffer-hook nil] 9 "\n\n(fn &rest IGNORED)"])
#@73 Retrieve URL and pass to the appropriate viewing application.

(fn URL)
(defalias 'url-mm-url #[257 "\300\301!\210\300\302!\210\303\304\305#\207" [require mm-decode mm-view url-retrieve url-mm-callback nil] 5 (#$ . 8068)])
(defvar url-dead-buffer-list nil)
(defalias 'url-mark-buffer-as-dead #[257 "\211B\211\207" [url-dead-buffer-list] 3 "\n\n(fn BUFF)"])
(defalias 'url-gc-dead-buffers #[0 "\301\211A@\211\262\205\302!\203\303!\210\202\207" [url-dead-buffer-list nil buffer-live-p kill-buffer] 3 "\n\n(fn)"])
(byte-code "\300\301!\203\302\303\301\"\210\202!\300\304!\203\302\303\305\"\210\202!\302\303\306\"\210\307\310!\207" [fboundp display-warning defalias url-warn warn #[770 "\300\301\206\302$\207" [warn "(%s/%s) %s" warning] 8 "\n\n(fn CLASS MESSAGE &optional LEVEL)"] #[770 "r\300\301!q\210db\210\212\302\303\206\304$c\210)\305p!)\207" [get-buffer-create "*URL-WARNINGS*" format "(%s/%s) %s\n" warning display-buffer] 8 "\n\n(fn CLASS MESSAGE &optional LEVEL)"] provide url] 3)
F1l3 Manager
