%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/url/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/url/url-about.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 (#$ . 480)])
(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) "\304!	>\204\305\306\300D\"\210\307H\227\310\311\312\n\"!\313!\2031\314\315!q\210\316c\210!\210p\2025\317\320\n\"*\207" [url cl-struct-url-tags item func type-of signal wrong-type-argument 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'"] 4 (#$ . 2136)])
(provide 'url-about)

Zerion Mini Shell 1.0