| Current File : //usr/share/emacs/24.3/lisp/url/url-about.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:16 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-about.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!\207" [require url-util url-parse] 2)
#@45 Return a list of all potential URL schemes.
(defalias 'url-probe-protocols #[nil "\302\303N\206 \304\305\302\300N\206 \306\304\307 \"\210\310\302\300#\210)\"\207" [schemes load-path url-extension-protocols probed mapc #[(s) "\301\302\"\207" [s url-scheme-get-property name] 3] ("info" "man" "rlogin" "telnet" "tn3270" "data" "snews") #[(d) "\301\302\303\304\305#\"\207" [d mapc #[(f) "\302\303\"\205 \304\305\" B\211\207" [f schemes string-match "url-\\(.*\\).el$" match-string 1] 3] directory-files nil "^url-.*\\.el$"] 6] put] 6 (#$ . 628)])
(defalias 'url-about-protocols #[(url) "\303 \210\304\305\306\307\310\311\312\313\314\315\316\317\320\261\210\321\322\323\324\325\326\n\"\210 )\327\"\"\210\330\331\332\261\207" [url-version x url-scheme-registry url-probe-protocols "<html>\n" " <head>\n" " <title>Supported Protocols</title>\n" " </head>\n" " <body>\n" " <h1>Supported Protocols - URL v" "</h1>\n" " <table width='100%' border='1'>\n" " <tr>\n" " <td>Protocol\n" " <td>Properties\n" " <td>Description\n" " </tr>\n" mapc #[(k) "\302\230?\205W \303c\210\304\305\306\"\206 \307\261\210\304\305\310\"\203# \311\202$ \312\313\305\314\"\2036 \315\316\305\314\"\"\2027 \317\320 \"\203H \315\321\320 \"\"\202I \317\261\210\304\305\322\"\206U \323\261\207" [k url-proxy-services "proxy" " <tr>\n" " <td valign=top>" url-scheme-get-property name "\n" asynchronous-p "As" "S" "ynchronous<br>\n" default-port format "Default Port: %d<br>\n" "" assoc "Proxy: %s<br>\n" description "N/A"] 9] sort nil maphash #[(k v) " B\211\207" [k x] 2] string-lessp " </table>\n" " </body>\n" "</html>\n"] 14])
#@21 Show internal URLs.
(defalias 'url-about #[(url) "\304H >\204 \305\306\307\300#\210\310H\227\311\312\313\n\"!\314 !\2030 \315\316!q\210\317c\210 !\210p\2024 \305\320\n\"*\207" [url cl-struct-url-tags item func 0 error "%s accessing a non-%s" url-filename 6 intern format "url-about-%s" fboundp generate-new-buffer " *about-data*" "Content-type: text/plain\n\n" "URL does not know about `%s'"] 4 (#$ . 2280)])
(provide 'url-about)