;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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\303
P\202\211\301\304\"\203\"\211\303P\262
\301\305\"\2039\211\306\307\224O
\307\225\310OP\262
\202\"\301\311\"\203P\211\306\307\224O
\307\225\310OP\262
\2029\301\312\"\203a\211\307\224\310O\262
\202P\207" ["" string-match "^/" "/" "/\\.+$" "/\\(\\./\\)" 0 1 nil "/\\([^/]*/\\.\\./\\)" "^/\\.\\.\\(/\\)"] 6 (#$ . 181)])
#@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!\262

G\316U\203K\317
!\207\304\n\"\203T
\207\312!\320\311!>\204h\321\322\323D\"\210
\324H\203\206\325\311!>\204~\321\322\323D\"\210\324H\326\"\202\207\327\304\330\"\203\251\312\311!>\204\237\321\322\323D\"\210\324H\331Q!\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 signal wrong-type-argument url 1 url-scheme-get-property expand-file-name url-identity-expander "^//" ":"] 9 (#$ . 630)])
#@22 

(fn URLOBJ DEFOBJ)
(defalias 'url-identity-expander #[514 "\301!>\204\302\303\304D\"\210
\305\301!>\204!\302\303\304D\"\210\305H\2069\301!>\2046\302\303\304D\"\210\305HI\207" [cl-struct-url-tags type-of signal wrong-type-argument url 1] 8 (#$ . 1862)])
#@22 

(fn URLOBJ DEFOBJ)
(defalias 'url-default-expander #[514 "\301!>\204\302\303\304D\"\210
\305H?\205M\301!>\204%\302\303\304D\"\210
\305\301!>\2047\302\303\304D\"\210\305H\206O\301!>\204L\302\303\304D\"\210\305HI\210\301!>\204`\302\303\304D\"\210
\306\301!>\204r\302\303\304D\"\210\306H\206\344\301!>\204\210\302\303\304D\"\210\305H\301!>\204\233\302\303\304D\"\210\305H\230\205\344\301
!>\204\262\302\303\304D\"\210\211\306H\206\342\301
!>\204\307\302\303\304D\"\210\211\305H\205\342\307\301!>\204\335\302\303\304D\"\210
\305H\310\"\262
I\210\301!>\204\365\302\303\304D\"\210
\305H\311\230\2048
\301!>\204\f
\302\303\304D\"\210
\312\301!>\204
\302\303\304D\"\210\312H\2066
\301!>\2043
\302\303\304D\"\210\312HI\210\301!>\204G
\302\303\304D\"\210
\305H\313\230\203\212
\301!>\204^
\302\303\304D\"\210
\314\301!>\204p
\302\303\304D\"\210\314H\206\210
\301!>\204\205
\302\303\304D\"\210\314HI\210\301!>\204\231
\302\303\304D\"\210
\315H\204\304
\301!>\204\256
\302\303\304D\"\210
\315\301!>\204\277
\302\303\304D\"\210\315HI\210\316!\316!
@A\206\331
\211\317\232\205\331

A\320\321\301!>\204\354
\302\303\304\nD\"\210\322H\"\203\374
\323!\262\202+\323\317\232\203\316!@\206(\317\202(\324\301!>\204!\302\303\304	D\"\210\322H!P!\262\301!>\204<\302\303\304D\"\210\322\203I\325Q\202JI\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 (#$ . 2140)])
(provide 'url-expand)