Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
url-about.elc	2.51 KB	-rw-r--r--
url-auth.elc	20.29 KB	-rw-r--r--
url-cache.elc	6.7 KB	-rw-r--r--
url-cid.elc	1.24 KB	-rw-r--r--
url-cookie.elc	23.96 KB	-rw-r--r--
url-dav.elc	20.14 KB	-rw-r--r--
url-dired.elc	2.78 KB	-rw-r--r--
url-domsuf.elc	1.78 KB	-rw-r--r--
url-expand.elc	4.04 KB	-rw-r--r--
url-file.elc	7.18 KB	-rw-r--r--
url-ftp.elc	778 B	-rw-r--r--
url-future.elc	9.17 KB	-rw-r--r--
url-gw.elc	6.68 KB	-rw-r--r--
url-handlers.elc	20.17 KB	-rw-r--r--
url-history.elc	5.46 KB	-rw-r--r--
url-http.elc	38.02 KB	-rw-r--r--
url-imap.elc	1.93 KB	-rw-r--r--
url-irc.elc	2.52 KB	-rw-r--r--
url-ldap.elc	6.06 KB	-rw-r--r--
url-mailto.elc	2.94 KB	-rw-r--r--
url-methods.elc	4.1 KB	-rw-r--r--
url-misc.elc	3.27 KB	-rw-r--r--
url-news.elc	7.36 KB	-rw-r--r--
url-nfs.elc	4.23 KB	-rw-r--r--
url-parse.elc	17.39 KB	-rw-r--r--
url-privacy.elc	1.61 KB	-rw-r--r--
url-proxy.elc	1.82 KB	-rw-r--r--
url-queue.elc	14.9 KB	-rw-r--r--
url-tramp.elc	2.97 KB	-rw-r--r--
url-util.elc	17.34 KB	-rw-r--r--
url-vars.elc	14.89 KB	-rw-r--r--
url.elc	9.12 KB	-rw-r--r--

Code Editor : url-nfs.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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\267\202[�\323c\210\202[�\nc\210\202[�\206:�\321c\210\202[�\f\206D�\321c\210\202[�
\206N�\321c\210\202[�\206Y�\324c\210)\202�\325 )\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 "" #s(hash-table size 6 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (37 41 104 47 110 53 117 63 112 73 102 83)) "%" "/" buffer-string file] 4])
(defalias 'url-nfs-build-filename #[(url) "\306!	>\204�\307\310\300D\"\210\311H\306!	>\204#�\307\310\300D\"\210\211\312H\206S�\306!	>\2048�\307\310\300D\"\210\211\313H\205S�\314\306!	>\204N�\307\310\300D\"\210\313H\315\"\262\306!	>\204e�\307\310\300D\"\210\316H\306!	>\204x�\307\310\300D\"\210\317H\306!	>\204\213�\307\310\300D\"\210\320H\321\322\n
\f&!-\207" [url cl-struct-url-tags host port pass user type-of signal wrong-type-argument 4 5 1 url-scheme-get-property default-port 3 2 6 url-generic-parse-url url-nfs-unescape file url-nfs-automounter-directory-spec] 8])
(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 (#$ . 2630)])
#@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 (#$ . 2820)])
#@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 (#$ . 3049)])
#@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 (#$ . 3242)])
#@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 (#$ . 3438)])
#@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 (#$ . 3634)])
#@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 (#$ . 3836)])
#@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 (#$ . 4082)])
(provide 'url-nfs)

${this.title}

Code Editor : url-nfs.elc