%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµùÕ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream
;ELC ;;; Compiled ;;; in Emacs version 25.2.1 ;;; 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\303\304\305\306\307\310\311\312&\207" [require url-parse url-file custom-declare-variable url-nfs-automounter-directory-spec "file:/net/%h%f" "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) (defalias 'url-nfs-unescape #[(format host port user pass file) "r\306\307!q\210\310 \210c\210eb\210\311\312\313\314#\203} \315\316!\317H\320\321\314\211#\210 \322=\203/ \323c\210\202y \324=\203; \nc\210\202y \325=\203K \206F \321c\210\202y \326=\203[ \f\206V \321c\210\202y \327=\203k \206f \321c\210\202y \330=\203y \206w \331c\210)\202 \332 )\207" [format escape host port user pass get-buffer-create " *nfs-parse*" erase-buffer re-search-forward "%\\(.\\)" nil t match-string 1 0 replace-match "" 37 "%" 104 110 117 112 102 "/" buffer-string file] 4]) (defalias 'url-nfs-build-filename #[(url) "\306H >\204 \307\310\300D\"\210\311H\211\306H >\204$ \307\310\300D\"\210\312H\206T \306H >\2049 \307\310\300D\"\210\313H\205T \314\306H >\204O \307\310\300D\"\210\313H\315\")\306H >\204e \307\310\300D\"\210\316H\306H >\204x \307\310\300D\"\210\317H\306H >\204\214 \307\310\300D\"\210\320H\321\322\n\f &!-\207" [url cl-struct-url-tags host urlobj port pass 0 signal wrong-type-argument 4 5 1 url-scheme-get-property default-port 3 2 6 url-generic-parse-url url-nfs-unescape user file url-nfs-automounter-directory-spec] 9]) (defalias 'url-nfs #[(url callback cbargs) "\303\304! \n#\207" [url callback cbargs url-file url-nfs-build-filename] 4]) (defalias 'url-nfs-create-wrapper '(macro . #[(method args) "\302\303\304\305\"! \304\306\"\307\310\311\303\304\312\"!\313\314\313\315 \"\"BE\257\207" [method args 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] 13])) #@46 NFS URL wrapper around `file-exists-p' call. (defalias 'url-nfs-file-exists-p #[(url) "\301!\211\205 \302!\207" [url url-nfs-build-filename url-file-file-exists-p] 3 (#$ . 2579)]) #@48 NFS URL wrapper around `file-attributes' call. (defalias 'url-nfs-file-attributes #[(url &optional id-format) "\302!\211\205\f \303 \"\207" [url id-format url-nfs-build-filename url-file-file-attributes] 4 (#$ . 2769)]) #@47 NFS URL wrapper around `file-symlink-p' call. (defalias 'url-nfs-file-symlink-p #[(url) "\301!\211\205 \302!\207" [url url-nfs-build-filename url-file-file-symlink-p] 3 (#$ . 2998)]) #@48 NFS URL wrapper around `file-readable-p' call. (defalias 'url-nfs-file-readable-p #[(url) "\301!\211\205 \302!\207" [url url-nfs-build-filename url-file-file-readable-p] 3 (#$ . 3191)]) #@48 NFS URL wrapper around `file-writable-p' call. (defalias 'url-nfs-file-writable-p #[(url) "\301!\211\205 \302!\207" [url url-nfs-build-filename url-file-file-writable-p] 3 (#$ . 3387)]) #@50 NFS URL wrapper around `file-executable-p' call. (defalias 'url-nfs-file-executable-p #[(url) "\301!\211\205 \302!\207" [url url-nfs-build-filename url-file-file-executable-p] 3 (#$ . 3583)]) #@48 NFS URL wrapper around `directory-files' call. (defalias 'url-nfs-directory-files #[(url &optional full match nosort) "\304!\211\205 \305 \n$\207" [url full match nosort url-nfs-build-filename url-file-directory-files] 6 (#$ . 3785)]) #@46 NFS URL wrapper around `file-truename' call. (defalias 'url-nfs-file-truename #[(url &optional counter prev-dirs) "\303!\211\205 \304 \n#\207" [url counter prev-dirs url-nfs-build-filename url-file-file-truename] 5 (#$ . 4031)]) (provide 'url-nfs)