;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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 (#$ . 680)])#@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 (#$ . 1303)])#@28 (fn URL CALLBACK CBARGS) (defalias 'url-nfs #[771 "\300\301!#\207" [url-file url-nfs-build-filename] 7 (#$ . 1911)])#@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 (#$ . 2038)]))#@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 (#$ . 2385)])#@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 (#$ . 2583)])#@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 (#$ . 2805)])#@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 (#$ . 3006)])#@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 (#$ . 3210)])#@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 (#$ . 3414)])#@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 (#$ . 3624)])#@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 (#$ . 3856)]) (provide 'url-nfs)