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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\312\313\314&\207" [require url-parse url-file custom-declare-variable url-nfs-automounter-directory-spec funcall function #[0 "\300\207" ["file:/net/%h%f"] 1 ""] "How to invoke the NFS automounter.  Certain % sequences are recognized.\n\n%h -- the hostname of the NFS server\n%n -- the port # of the NFS server\n%u -- the username to use to authenticate\n%p -- the password to use to authenticate\n%f -- the filename on the remote server\n%% -- a literal %\n\nEach can be used any number of times." :group url :type string] 8)
#@40 

(fn FORMAT HOST PORT USER PASS FILE)
(defalias 'url-nfs-unescape #[1542 "r\300\301!q\210\302 \210c\210eb\210\303\304\305\306#\203g\307\310!\311H\312\313\306\211#\210\211\314\267\210\202\315c\266\202c\266\202\206<\313c\266\202\206G\313c\266\202\206R\313c\266\202
\206]\316c\266\202\210\202\317 )\207" [get-buffer-create " *nfs-parse*" erase-buffer re-search-forward "%\\(.\\)" nil t match-string 1 0 replace-match "" #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (37 41 104 48 110 55 117 66 112 77 102 88)) "%" "/" buffer-string] 11 (#$ . 681)])
#@12 

(fn URL)
(defalias 'url-nfs-build-filename #[257 "\302
!>\204\303\304\305D\"\210\211\306H
\302
!>\204\"\303\304\305D\"\210\211\307H\206R\302
!>\2047\303\304\305D\"\210\211\310H\205R\311\302!>\204M\303\304\305D\"\210
\310H\312\"\262
\302!>\204c\303\304\305D\"\210\313H\302!>\204v\303\304\305D\"\210\314H\302!>\204\211\303\304\305D\"\210\315H\316\317	&!\207" [cl-struct-url-tags url-nfs-automounter-directory-spec type-of signal wrong-type-argument url 4 5 1 url-scheme-get-property default-port 3 2 6 url-generic-parse-url url-nfs-unescape] 14 (#$ . 1305)])
#@28 

(fn URL CALLBACK CBARGS)
(defalias 'url-nfs #[771 "\300\301!#\207" [url-file url-nfs-build-filename] 7 (#$ . 1914)])
#@20 

(fn METHOD ARGS)
(defalias 'url-nfs-create-wrapper '(macro . #[514 "\300\301\302\303\"!\302\304\"\305\306\307\301\302\310\"!\311\312\311\313\f\"\"BE\257\207" [defun intern format "url-nfs-%s" "NFS URL wrapper around `%s' call." (setq url (url-nfs-build-filename url)) and url "url-file-%s" remove &rest &optional] 15 (#$ . 2042)]))
#@56 NFS URL wrapper around `file-exists-p' call.

(fn URL)
(defalias 'url-nfs-file-exists-p #[257 "\300
!\262
\211\205\f\301
!\207" [url-nfs-build-filename url-file-file-exists-p] 3 (#$ . 2390)])
#@78 NFS URL wrapper around `file-attributes' call.

(fn URL &optional ID-FORMAT)
(defalias 'url-nfs-file-attributes #[513 "\300!\262
\205
\301\"\207" [url-nfs-build-filename url-file-file-attributes] 5 (#$ . 2589)])
#@57 NFS URL wrapper around `file-symlink-p' call.

(fn URL)
(defalias 'url-nfs-file-symlink-p #[257 "\300
!\262
\211\205\f\301
!\207" [url-nfs-build-filename url-file-file-symlink-p] 3 (#$ . 2812)])
#@58 NFS URL wrapper around `file-readable-p' call.

(fn URL)
(defalias 'url-nfs-file-readable-p #[257 "\300
!\262
\211\205\f\301
!\207" [url-nfs-build-filename url-file-file-readable-p] 3 (#$ . 3014)])
#@58 NFS URL wrapper around `file-writable-p' call.

(fn URL)
(defalias 'url-nfs-file-writable-p #[257 "\300
!\262
\211\205\f\301
!\207" [url-nfs-build-filename url-file-file-writable-p] 3 (#$ . 3219)])
#@60 NFS URL wrapper around `file-executable-p' call.

(fn URL)
(defalias 'url-nfs-file-executable-p #[257 "\300
!\262
\211\205\f\301
!\207" [url-nfs-build-filename url-file-file-executable-p] 3 (#$ . 3424)])
#@86 NFS URL wrapper around `directory-files' call.

(fn URL &optional FULL MATCH NOSORT)
(defalias 'url-nfs-directory-files #[1025 "\300!\262\205\301$\207" [url-nfs-build-filename url-file-directory-files] 9 (#$ . 3635)])
#@84 NFS URL wrapper around `file-truename' call.

(fn URL &optional COUNTER PREV-DIRS)
(defalias 'url-nfs-file-truename #[769 "\300!\262\205\301#\207" [url-nfs-build-filename url-file-file-truename] 7 (#$ . 3868)])
(provide 'url-nfs)