| Server IP : 217.160.0.135 / Your IP : 216.73.217.37 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1074145052 ( 1074145052) PHP Version : 8.3.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/url/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(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 #[0 "\301\302N\206$ \303\304\301\305N\206# \306C\303\307\310\"\"\210\311\301\305\242#\210\211\242\262\"\207" [load-path url-extension-protocols probed mapc #[257 "\300\301\"\207" [url-scheme-get-property name] 4 "\n\n(fn S)"] schemes ("info" "man" "rlogin" "telnet" "tn3270" "data" "snews") make-closure #[257 "\301\302\303\300\"\304\305\306#\"\207" [V0 mapc make-closure #[257 "\301\302\"\205 \300\303\304\"\300\242B\240\207" [V0 string-match "url-\\(.*\\).el$" match-string 1] 5 "\n\n(fn F)"] directory-files nil "\\`url-.*\\.el\\'"] 7 "\n\n(fn D)"] put] 7 (#$ . 156)])
#@12
(fn URL)
(defalias 'url-about-protocols #[257 "\302 \210\303\304\305\306\307\310\311\312\313\314\315\316\317\261\210\320\321\322\323C\324\325\326\" \"\210\211\242\262\327\"\"\210\330\331\332\261\207" [emacs-version url-scheme-registry url-probe-protocols "<html>\n" " <head>\n" " <title>Supported Protocols</title>\n" " </head>\n" " <body>\n" " <h1>Supported Protocols - URL package in Emacs " "</h1>\n" " <table width='100%' border='1'>\n" " <tr>\n" " <td>Protocol\n" " <td>Properties\n" " <td>Description\n" " </tr>\n" mapc #[257 "\211\301\230?\205Y \302c\210\303\304\305\"\206 \306\261\210\303\304\307\"\203# \310\202$ \311\312\304\313\"\2037 \314\315\304\313\"\"\2028 \316\317\"\203J \314\320\317\"\"\202K \316\261\210\303\304\321\"\206W \322\261\207" [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"] 10 "\n\n(fn K)"] sort nil maphash make-closure #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn K V)"] string-lessp " </table>\n" " </body>\n" "</html>\n"] 15 (#$ . 818)])
#@31 Show internal URLs.
(fn URL)
(defalias 'url-about #[257 "\301!>\204 \302\303\304D\"\210\211\305H\227\306\307\310\"!\311!\203- \312\313!q\210\314c\210\211!\210p\207\315\316\"\207" [cl-struct-url-tags type-of signal wrong-type-argument url 6 intern format "url-about-%s" fboundp generate-new-buffer " *about-data*" "Content-type: text/plain\n\n" error "URL does not know about `%s'"] 6 (#$ . 2020)])
(provide 'url-about)