%PDF-
%PDF-
Mini Shell
Mini Shell
;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!\210\300\303!\207" [require url-methods url-util url-parse] 2)
#@13
(fn NAME)
(defalias 'url-expander-remove-relative-links #[257 "\211\300\232\203 \300\207\301\302\"\204 \303P\202 \211\301\304\"\203\" \211\303P\262\301\305\"\203: \306\307\310\224#\306\310\225\"P\262\202\" \301\311\"\203R \306\307\310\224#\306\310\225\"P\262\202: \301\312\"\203d \306\310\224\313#\262\202R \211\207" ["" string-match "^/" "/" "/\\.+$" "/\\(\\./\\)" substring 0 1 "/\\([^/]*/\\.\\./\\)" "^/\\.\\.\\(/\\)" nil] 6 (#$ . 505)])
#@334 Convert URL to a fully specified URL, and canonicalize it.
Second arg DEFAULT is a URL to start with if URL is relative.
If DEFAULT is nil or missing, the current buffer's URL is used.
Path components that are `.' are removed, and
path components followed by `..' are removed, along with the `..' itself.
(fn URL &optional DEFAULT)
(defalias 'url-expand-file-name #[513 "\203 \304\305\"\204 \306\307\310#\262\311!>\203 \211\202> \211\203( \312!\202> \2030 \202> \304\n\"\203; \313\202> \314\315!\262G\316U\203K \317!\207\304\n\"\203T \207\312!\320\321\311!>\204i \322\323\324D\"\210\325H\326\"\304\327\"\203\220 \312\311!>\204\206 \322\323\324D\"\210\325H\330Q!\262\211\"\210\317!)\207" [cl-struct-url-tags url-current-object url-nonrelative-link inhibit-file-name-handlers string-match "^#" mapconcat #[257 "\211\300>\203 \301\207\302!\207" [(32 10 13) #1="" char-to-string] 3 "\n\n(fn X)"] #1# type-of url-generic-parse-url nil error "url-expand-file-name confused - no default?" 0 url-recreate-url t url-scheme-get-property signal wrong-type-argument url 1 expand-file-name "^//" ":"] 9 (#$ . 973)])
#@22
(fn URLOBJ DEFOBJ)
(defalias 'url-identity-expander #[514 "\301!>\204 \302\303\304D\"\210\211\305\301!>\204\" \302\303\304D\"\210\305H\206; \301!>\2048 \302\303\304D\"\210\305HI\207" [cl-struct-url-tags type-of signal wrong-type-argument url 1] 9 (#$ . 2121)])
#@22
(fn URLOBJ DEFOBJ)
(defalias 'url-default-expander #[514 "\301!>\204 \302\303\304D\"\210\305H?\205b\301!>\204% \302\303\304D\"\210\211\305\301!>\2048 \302\303\304D\"\210\305H\206Q \301!>\204N \302\303\304D\"\210\305HI\266\301!>\204d \302\303\304D\"\210\211\211\306\301!>\204x \302\303\304D\"\210\306H\206\354 \301!>\204\217 \302\303\304D\"\210\305H\301!>\204\243 \302\303\304D\"\210\305H\230\205\354 \301!>\204\272 \302\303\304D\"\210\211\306H\206\352 \301!>\204\317 \302\303\304D\"\210\211\305H\205\352 \307\301!>\204\345 \302\303\304D\"\210\305H\310\"\262I\266\301!>\204\376 \302\303\304D\"\210\305H\311\230\204D\301!>\204\302\303\304D\"\210\211\312\301!>\204(\302\303\304D\"\210\312H\206A\301!>\204>\302\303\304D\"\210\312HI\266\301!>\204S\302\303\304D\"\210\305H\313\230\203\231\301!>\204j\302\303\304D\"\210\211\314\301!>\204}\302\303\304D\"\210\314H\206\226\301!>\204\223\302\303\304D\"\210\314HI\266\301!>\204\250\302\303\304D\"\210\315H\204\326\301!>\204\275\302\303\304D\"\210\211\315\301!>\204\320\302\303\304D\"\210\315HI\266\316!\316!@A\206\353\211\317\232\205\353A\320\321\301!>\204\376\302\303\304\nD\"\210\322H\"\203\323!\262\202=\323\317\232\203!\316!@\206:\317\202:\324\301!>\2043\302\303\304 D\"\210\322H!P!\262\301!>\204N\302\303\304D\"\210\211\322\203\\\325Q\202]I\262\266\204\207" [cl-struct-url-tags type-of signal wrong-type-argument url 1 5 url-scheme-get-property default-port "file" 4 "ftp" 2 9 url-path-and-query "" string-match "^/" 6 url-expander-remove-relative-links url-file-directory "?"] 12 (#$ . 2405)])
(provide 'url-expand)
Zerion Mini Shell 1.0