%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/net/
Current File : //usr/local/share/emacs/27.2/lisp/net/tramp-archive.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 "\301_\302\303!\210)\304\305\306\"\210\304\307\310\"\207" [max-specpdl-size 2 require tramp-gvfs autoload dired-uncache "dired" url-tramp-convert-url-to-tramp "url-tramp"] 3)
#@49 Non-nil when file archive support is available.
(defvar tramp-archive-enabled (featurep 'dbusbind) (#$ . 596))
(byte-code "\302\207" [tramp-gvfs-enabled tramp-archive-enabled nil] 1)
#@88 List of suffixes which indicate a file archive.
It must be supported by libarchive(3).
(defconst tramp-archive-suffixes '("7z" "apk" "ar" "cab" "CAB" "cpio" "deb" "depot" "exe" "iso" "jar" "lzh" "LZH" "msu" "MSU" "mtree" "odb" "odf" "odg" "odp" "ods" "odt" "pax" "rar" "rpm" "shar" "tar" "tbz" "tgz" "tlz" "txz" "tzst" "warc" "xar" "xpi" "xps" "zip" "ZIP") (#$ . 787))
#@91 List of suffixes which indicate a compressed file.
It must be supported by libarchive(3).
(defconst tramp-archive-compression-suffixes '("bz2" "gz" "lrz" "lz" "lz4" "lzma" "lzo" "uu" "xz" "Z" "zst") (#$ . 1162))
#@49 Regular expression matching archive file names.
(defalias 'tramp-archive-autoload-file-name-regexp '(macro . #[0 "\300\207" [(concat "\\`" "\\(" ".+" "\\." (regexp-opt tramp-archive-suffixes) "\\(?:" "\\." (regexp-opt tramp-archive-compression-suffixes) "\\)*" "\\)" "\\(" "/" ".*" "\\)" "\\'")] 1 (#$ . 1380)]))
#@49 Regular expression matching archive file names.
(defconst tramp-archive-file-name-regexp (byte-code "\3021\303\304!\305\304	!\306\2600\207\210\307\207" [tramp-archive-suffixes tramp-archive-compression-suffixes (error) "\\`\\(.+\\." regexp-opt "\\(?:\\." "\\)*\\)\\(/.*\\)\\'" nil] 5) (#$ . 1699))
#@35 Method name for archives in GVFS.
(defconst tramp-archive-method "archive" (#$ . 2007))
#@50 List of all methods `tramp-gvfs-methods' offers.
(defconst tramp-archive-all-gvfs-methods (byte-code "\301\302NA@A\303\304\"\262\303\305\"\211\262\262B\207" [tramp-archive-method tramp-gvfs-methods custom-type mapcar last car] 5) (#$ . 2101))
#@132 Alist of handler functions for file archive method.
Operations not mentioned here will be handled by the default Emacs primitives.
(defconst tramp-archive-file-name-handler-alist '((access-file . tramp-archive-handle-access-file) (add-name-to-file . tramp-archive-handle-not-implemented) (copy-file . tramp-archive-handle-copy-file) (delete-directory . tramp-archive-handle-not-implemented) (delete-file . tramp-archive-handle-not-implemented) (directory-file-name . tramp-archive-handle-directory-file-name) (directory-files . tramp-handle-directory-files) (directory-files-and-attributes . tramp-handle-directory-files-and-attributes) (dired-compress-file . tramp-archive-handle-not-implemented) (dired-uncache . tramp-archive-handle-dired-uncache) (exec-path . ignore) (file-accessible-directory-p . tramp-handle-file-accessible-directory-p) (file-acl . ignore) (file-attributes . tramp-archive-handle-file-attributes) (file-directory-p . tramp-handle-file-directory-p) (file-equal-p . tramp-handle-file-equal-p) (file-executable-p . tramp-archive-handle-file-executable-p) (file-exists-p . tramp-handle-file-exists-p) (file-in-directory-p . tramp-handle-file-in-directory-p) (file-local-copy . tramp-archive-handle-file-local-copy) (file-modes . tramp-handle-file-modes) (file-name-all-completions . tramp-archive-handle-file-name-all-completions) (file-name-case-insensitive-p . ignore) (file-name-completion . tramp-handle-file-name-completion) (file-newer-than-file-p . tramp-handle-file-newer-than-file-p) (file-notify-add-watch . ignore) (file-notify-rm-watch . ignore) (file-notify-valid-p . ignore) (file-ownership-preserved-p . ignore) (file-readable-p . tramp-archive-handle-file-readable-p) (file-regular-p . tramp-handle-file-regular-p) (file-selinux-context . tramp-handle-file-selinux-context) (file-symlink-p . tramp-handle-file-symlink-p) (file-system-info . tramp-archive-handle-file-system-info) (file-truename . tramp-archive-handle-file-truename) (file-writable-p . ignore) (find-backup-file-name . ignore) (insert-directory . tramp-archive-handle-insert-directory) (insert-file-contents . tramp-archive-handle-insert-file-contents) (load . tramp-archive-handle-load) (make-auto-save-file-name . ignore) (make-directory . tramp-archive-handle-not-implemented) (make-directory-internal . tramp-archive-handle-not-implemented) (make-nearby-temp-file . tramp-handle-make-nearby-temp-file) (make-process . ignore) (make-symbolic-link . tramp-archive-handle-not-implemented) (process-file . ignore) (rename-file . tramp-archive-handle-not-implemented) (set-file-acl . ignore) (set-file-modes . tramp-archive-handle-not-implemented) (set-file-selinux-context . ignore) (set-file-times . tramp-archive-handle-not-implemented) (set-visited-file-modtime . tramp-handle-set-visited-file-modtime) (shell-command . tramp-archive-handle-not-implemented) (start-file-process . tramp-archive-handle-not-implemented) (temporary-file-directory . tramp-archive-handle-temporary-file-directory) (unhandled-file-name-directory . ignore) (vc-registered . ignore) (verify-visited-file-modtime . tramp-handle-verify-visited-file-modtime) (write-region . tramp-archive-handle-not-implemented)) (#$ . 2357))
#@100 Like `tramp-file-name-for-operation', but for archive file name syntax.

(fn OPERATION &rest ARGS)
(defalias 'tramp-archive-file-name-for-operation #[385 "\300K\301\302\303\304\305!\306\"\307$\216\300\310M\210\311\312#)\207" [tramp-tramp-file-p make-byte-code 0 "\301\300M\207" vconcat vector [tramp-tramp-file-p] 2 tramp-archive-file-name-p apply tramp-file-name-for-operation] 9 (#$ . 5570)])
(put 'tramp-archive-file-name-for-operation 'byte-optimizer 'byte-compile-inline-expand)
#@169 Invoke normal file name handler for OPERATION.
First arg specifies the OPERATION, second arg ARGS is a list of
arguments to pass to the OPERATION.

(fn OPERATION ARGS)
(defalias 'tramp-archive-run-real-handler #[514 "\302=\205	B\303\"*\207" [inhibit-file-name-operation inhibit-file-name-handlers tramp-archive-file-name-handler apply] 5 (#$ . 6064)])
#@171 Invoke the file archive related OPERATION.
First arg specifies the OPERATION, second arg ARGS is a list of
arguments to pass to the OPERATION.

(fn OPERATION &rest ARGS)
(defalias 'tramp-archive-file-name-handler #[385 "\204\f\306 \210\307\"\207\310\311#\312!\313	_\211\203$\307\314C\"\203+\307\"\202y\nCB\f\315 \316 \317
\"\211A\320=\203RB\262\211\203p\321 \322\323\324\325\326!\327\"\330$\216\310A\n\")\262\202v\307		\",\266\205)\207" [tramp-archive-enabled max-specpdl-size tramp-archive-method tramp-methods tramp-archive-all-gvfs-methods tramp-archive-file-name-handler-alist tramp-register-file-name-handlers tramp-archive-run-real-handler apply tramp-archive-file-name-for-operation tramp-archive-file-name-archive 2 file-directory-p user-uid user-login-name assoc tramp-archive-handle-not-implemented match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 tramp-unknown-id-string tramp-unknown-id-integer tramp-gvfs-methods] 16 (#$ . 6432)])
(defalias 'tramp-archive-autoload-file-name-handler 'tramp-autoload-file-name-handler)
#@61 Add archive file name handler to `file-name-handler-alist'.
(defalias 'tramp-register-archive-file-name-handler #[0 "\205\303\304\305\306	!\307\306\n!\310\260\311B\"\210\312\311\313\314#\207" [tramp-archive-enabled tramp-archive-suffixes tramp-archive-compression-suffixes add-to-list file-name-handler-alist "\\`\\(.+\\." regexp-opt "\\(?:\\." "\\)*\\)\\(/.*\\)\\'" tramp-archive-autoload-file-name-handler put safe-magic t] 7 (#$ . 7555)])
(byte-code "\302\303\304\"\210\302\305\306\"\210\304 \210\307\310\311\312\313\"#\210	\203\314 \210\315\316\317\"\207" [tramp-archive-file-name-handler-alist url-handler-mode add-hook after-init-hook tramp-register-archive-file-name-handler tramp-archive-unload-hook #[0 "\300\301\302\"\207" [remove-hook after-init-hook tramp-register-archive-file-name-handler] 3] put tramp-archive-file-name-handler operations mapcar car tramp-register-file-name-handlers eval-after-load url-handler #[0 "\300\301\302\"\210\300\303\304\"\207" [add-hook url-handler-mode-hook tramp-register-file-name-handlers tramp-archive-unload-hook #[0 "\300\301\302\"\207" [remove-hook url-handler-mode-hook tramp-register-file-name-handlers] 3]] 3]] 6)
#@72 Return t if NAME is a string with archive file name syntax.

(fn NAME)
(defalias 'tramp-archive-file-name-p #[257 "\211;\205#\211\302\211?\205
\303\304\305!\")\266\202?\205#\306	\"\205#\302\207" [file-name-handler-alist tramp-archive-file-name-regexp t string-prefix-p "/:" file-local-name string-match] 7 (#$ . 8736)])
#@41 Return archive part of NAME.

(fn NAME)
(defalias 'tramp-archive-file-name-archive #[257 "\300!\205\n\301\302\"\207" [tramp-archive-file-name-p match-string 1] 4 (#$ . 9070)])
#@43 Return localname part of NAME.

(fn NAME)
(defalias 'tramp-archive-file-name-localname #[257 "\300!\205\n\301\302\"\207" [tramp-archive-file-name-p match-string 2] 4 (#$ . 9255)])
#@192 Hash table for archive local copies.
The hash key is the archive name.  The value is a cons of the
used `tramp-file-name' structure for tramp-gvfs, and the file
name of a local copy, if any.
(defvar tramp-archive-hash (make-hash-table :test 'equal) (#$ . 9445))
#@73 Return host name of ARCHIVE as used in GVFS for mounting.

(fn ARCHIVE)
(defalias 'tramp-archive-gvfs-host #[257 "\300\301!!\207" [url-hexify-string tramp-gvfs-url-file-name] 4 (#$ . 9713)])
(put 'tramp-archive-gvfs-host 'byte-optimizer 'byte-compile-inline-expand)
#@214 Return a `tramp-file-name' structure for NAME.
The structure consists of the `tramp-archive-method' method, the
hexified archive name as host, and the localname.  The archive
name is kept in slot `hop'

(fn NAME)
(defalias 'tramp-archive-dissect-file-name #[257 "\306 \307\310\311\312\313!\314\"\315$\216\316!\204\317\320\321#\210\322!\323\324!!\325\320\211\211\211\211\257\326	\"\203>\326	\"@\262\202\211\316!\203r\327\330!\320\331#\242\n>\204Y\332\333\325D\"\210\334\233\211\335\336!!\262\240\266\337C	#\210\202\211\203\374\f\203\374
\320\340.\341#)\266\203\203\374\342\343!\344!/>\204\237\332\333\345D\"\210\211\346H\262\320\340.\341#)\266\203\203\374\343!\344!/>\204\306\332\333\345D\"\210\211\346H\2620B0\347!\242\n>\204\341\332\333\325D\"\210\334\233\211\335\336!!\262\240\266)\210\337C	#\210\202\211\350!\205$\351!\211\242\n>\204\332\333\325D\"\210\211A@\262\211;\205\"\2111\235\262\262\204/\352!\204V\211\242\n>\204=\332\333\325D\"\210\334\233\211\335\336!!\262\240\266\337C	#\210\202\211\3532\3543B3\353!\242\n>\204p\332\333\325D\"\210\334\233\211\335\336!!\262\240\266\337B	#\210*\210\211\242\n>\204\227\332\333\325D\"\210\355\233\211\240\266\266\202)\207" [tramp-archive-method tramp-archive-hash cl-struct-tramp-file-name-tags url-handler-mode tramp-compat-use-url-tramp-p url-handler-regexp match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 tramp-archive-file-name-p tramp-user-error nil "Not an archive file name: \"%s\"" tramp-archive-file-name-localname file-truename tramp-archive-file-name-archive tramp-file-name gethash tramp-make-tramp-file-name tramp-archive-dissect-file-name noarchive signal wrong-type-argument 4 url-hexify-string tramp-gvfs-url-file-name puthash t string-match "https?" url-generic-parse-url type-of url 1 url-tramp-convert-url-to-tramp tramp-tramp-file-p tramp-dissect-file-name file-remote-p file-local-copy jka-compr-handler 6 inhibit-changing-match-data cl-struct-url-tags url-tramp-protocols tramp-gvfs-methods inhibit-file-name-operation inhibit-file-name-handlers] 12 (#$ . 9987)])
#@48 Remove local copies of archives, used by GVFS.
(defalias 'tramp-archive-cleanup-hash #[0 "\302\303\304	\"\210\305	!)\207" [non-essential tramp-archive-hash t maphash #[514 "\3041\271\211@\305\306A\206C\3071\252X\205\246	\203I\305X\203I\310\311\312U\203/\313\202D\314U\2039\313\202D\315U\203C\316\202D\317P#\210\320Y\205\246\312\314U\203\206\3211\201r\322!\203h\323!\202l\324\325\"q\210\326P\262\327\330 C\"\211\262)0\202\205\210\202\206\210\322!\203\222\331\332\"\262)\242\n>\205\246\310\333\334\335\"P$0\202\256\210\202\257\210\266\336@!0\202\275\210\202\276\210\3371\312\340A!0\202\316\210\202\317\210\341\"\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-archive-hash (error) 3 "Unmounting %s" (error) apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-gvfs-unmount (error) delete-file remhash] 12 "\n\n(fn KEY VALUE)"] clrhash] 3 (#$ . 12183)])
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\305\"\207" [add-hook tramp-cleanup-all-connections-hook tramp-archive-cleanup-hash kill-emacs-hook tramp-archive-unload-hook #[0 "\300\301\302\"\210\300\303\302\"\207" [remove-hook tramp-cleanup-all-connections-hook tramp-archive-cleanup-hash kill-emacs-hook] 3]] 3)
#@243 Extract the archive file name from VEC.
VEC is expected to be a `tramp-file-name', with the method being
`tramp-archive-method', and the host being a coded URL.  The
archive name is extracted from the hop part of the VEC structure.

(fn VEC)
(defalias 'tramp-file-name-archive #[257 "\211\242>\205.\211\242>\204\302\303\304D\"\210\211A@	\230\205.\211\242>\204+\302\303\304D\"\210\3058\207" [cl-struct-tramp-file-name-tags tramp-archive-method signal wrong-type-argument tramp-file-name 7] 5 (#$ . 13621)])
(put 'tramp-file-name-archive 'byte-optimizer 'byte-compile-inline-expand)
#@429 Parse an archive filename and make components available in the BODY.
This works exactly as `with-parsed-tramp-file-name' for the Tramp
file name structure returned by `tramp-archive-dissect-file-name'.
A variable `foo-archive' (or `archive') will be bound to the
archive name part of FILENAME, assuming `foo' (or nil) is the
value of VAR.  OTOH, the variable `foo-hop' (or `hop') won't be
offered.

(fn FILENAME VAR &rest BODY)
(defalias 'with-parsed-tramp-archive-file-name '(macro . #[642 "\300\301\302\303\304\305!\306\"\307\310%\311\312\313\300\314\315\"A\"B\"\316\206\317\320DDB\321\300\314\"BBBB\207" [mapcar make-byte-code 257 "\300\203\301\302\303\300#!\202\211\301\302\304\"!\300\206\305DD\207" vconcat vector [intern format "%s-%s" "tramp-file-name-%s" v] 6 "\n\n(fn ELEM)" archive delete hop car ((cl-tag-slot nil) (method nil) (user nil) (domain nil) (host nil) (port nil) (localname nil) (hop nil)) let* v tramp-archive-dissect-file-name ignore] 11 (#$ . 14220)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put with-parsed-tramp-archive-file-name edebug-form-spec (form symbolp body) function-put lisp-indent-function 2] 4)
#@40 Return NAME in GVFS syntax.

(fn NAME)
(defalias 'tramp-archive-gvfs-file-name #[257 "\300\301!\302\303#\207" [tramp-make-tramp-file-name tramp-archive-dissect-file-name nil nohop] 5 (#$ . 15400)])
#@61 Like `access-file' for file archives.

(fn FILENAME STRING)
(defalias 'tramp-archive-handle-access-file #[514 "\300\301!\"\207" [access-file tramp-archive-gvfs-file-name] 5 (#$ . 15605)])
#@147 Like `copy-file' for file archives.

(fn FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS KEEP-DATE PRESERVE-UID-GID PRESERVE-EXTENDED-ATTRIBUTES)
(defalias 'tramp-archive-handle-copy-file #[1538 "\306!\203\337\307!\310\311C\312\211\n\313Y\203	\211\203\331\211\313\314\315\316!\317\216\320 \210)rq\210\321 +C\3221\317\nX\205\313	\203n\323X\203n\324\325\326U\203T\327\202i\330U\203^\327\202i\331U\203h\332\202i\333P#\210\n\334Y\205\313\326\330U\203\253\3351\246r\336!\203\215\337!\202\221\340\341\"q\210\314P\262\342\321 C\"\211\262)0\202\252\210\202\253\210\336!\203\267\343\344\"\262)\242\f>\205\313\324\345\346\347\"P$0\202\323\210\202\324\210\266\202	
r\350\351!q\210p\352 \210\312\211:;\353\211<\353=>\354 \210\355\356!\210+\211\320 \210\357!\210)\266\210\211\204C\262\360\262\203\316\330\360\361\211\362N\324\363		#E!C\3641\307\nX\205\303	\203f\323X\203f\324\325\326U\203L\327\202a\330U\203V\327\202a\331U\203`\332\202a\333P#\210\n\334Y\205\303\326\330U\203\243\3651\236r\336!\203\205\337!\202\211\340\341\"q\210\314P\262\342\321 C\"\211\262)0\202\242\210\202\243\210\336!\203\257\343\344\"\262)\242\f>\205\303\324\345\346\347\"P$0\202\313\210\202\314\210\266\366\367\324\363#!C\"\210*\266\370\371!&\207" [signal-hook-function tramp-message-show-message tramp-verbose standard-output cl-struct-tramp-file-name-tags default-directory tramp-archive-file-name-p tramp-archive-dissect-file-name file-error "Permission denied: %s" nil 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) signal substring-no-properties copy-file tramp-archive-gvfs-file-name buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only] 22 (#$ . 15802)])
#@63 Like `directory-file-name' for file archives.

(fn DIRECTORY)
(defalias 'tramp-archive-handle-directory-file-name #[257 "\302!\211\211\242>\2052\211\242>\204\303\304\305D\"\210\211A@	\230\2052\211\242>\204/\303\304\305D\"\210\3068\262\242>\204B\303\304\305D\"\210A@\242>\204S\303\304\305D\"\210\3078\242>\204e\303\304\305D\"\210\3108\242>\204w\303\304\305D\"\210\3118\242>\204\211\303\304\305D\"\210\3128\242>\204\235\303\304\305	D\"\210\3138\211G\314U\204\301\211GSH\315=\203\301\211\316\230\204\301\317	\314\320#\202\303\207" [cl-struct-tramp-file-name-tags tramp-archive-method tramp-archive-dissect-file-name signal wrong-type-argument tramp-file-name 7 2 3 4 5 6 0 47 "/" substring -1] 13 (#$ . 18103)])
#@51 Like `dired-uncache' for file archives.

(fn DIR)
(defalias 'tramp-archive-handle-dired-uncache #[257 "\300\301!!\207" [dired-uncache tramp-archive-gvfs-file-name] 4 (#$ . 18875)])
#@78 Like `file-attributes' for file archives.

(fn FILENAME &optional ID-FORMAT)
(defalias 'tramp-archive-handle-file-attributes #[513 "\300\301!\"\207" [file-attributes tramp-archive-gvfs-file-name] 5 (#$ . 19063)])
#@60 Like `file-executable-p' for file archives.

(fn FILENAME)
(defalias 'tramp-archive-handle-file-executable-p #[257 "\300\301!!\207" [file-executable-p tramp-archive-gvfs-file-name] 4 (#$ . 19284)])
#@58 Like `file-local-copy' for file archives.

(fn FILENAME)
(defalias 'tramp-archive-handle-file-local-copy #[257 "\300\301!!\207" [file-local-copy tramp-archive-gvfs-file-name] 4 (#$ . 19489)])
#@78 Like `file-name-all-completions' for file archives.

(fn FILENAME DIRECTORY)
(defalias 'tramp-archive-handle-file-name-all-completions #[514 "\300\301!\"\207" [file-name-all-completions tramp-archive-gvfs-file-name] 6 (#$ . 19688)])
#@58 Like `file-readable-p' for file archives.

(fn FILENAME)
(defalias 'tramp-archive-handle-file-readable-p #[257 "\300\301!!\207" [file-readable-p tramp-archive-gvfs-file-name] 4 (#$ . 19929)])
#@59 Like `file-system-info' for file archives.

(fn FILENAME)
(defalias 'tramp-archive-handle-file-system-info #[257 "\302!\211\211\242>\2052\211\242>\204\303\304\305D\"\210\211A@	\230\2052\211\242>\204/\303\304\305D\"\210\3068\262\242>\204B\303\304\305D\"\210A@\242>\204S\303\304\305D\"\210\3078\242>\204e\303\304\305D\"\210\3108\242>\204w\303\304\305D\"\210\3118\242>\204\211\303\304\305D\"\210\3128\242>\204\235\303\304\305	D\"\210\3138\314!\3068\262\315\211E\207" [cl-struct-tramp-file-name-tags tramp-archive-method tramp-archive-dissect-file-name signal wrong-type-argument tramp-file-name 7 2 3 4 5 6 file-attributes 0] 12 (#$ . 20128)])
#@56 Like `file-truename' for file archives.

(fn FILENAME)
(defalias 'tramp-archive-handle-file-truename #[257 "\302!\211\211\242>\2052\211\242>\204\303\304\305D\"\210\211A@	\230\2052\211\242>\204/\303\304\305D\"\210\3068\262\242>\204B\303\304\305D\"\210A@\242>\204S\303\304\305D\"\210\3078\242>\204e\303\304\305D\"\210\3108\242>\204w\303\304\305D\"\210\3118\242>\204\211\303\304\305D\"\210\3128\242>\204\235\303\304\305	D\"\210\3138\314	!\206\251\211\315!\204\267\316\317!\"\262\320!P\262\207" [cl-struct-tramp-file-name-tags tramp-archive-method tramp-archive-dissect-file-name signal wrong-type-argument tramp-file-name 7 2 3 4 5 6 file-symlink-p file-name-absolute-p expand-file-name file-name-directory file-truename] 14 (#$ . 20828)])
#@104 Like `insert-directory' for file archives.

(fn FILENAME SWITCHES &optional WILDCARD FULL-DIRECTORY-P)
(defalias 'tramp-archive-handle-insert-directory #[1026 "\300\301!$\210eb\210\302\301!\303\304#\205\305!\210\202\f\207" [insert-directory tramp-archive-gvfs-file-name search-forward nil noerror replace-match] 9 (#$ . 21632)])
#@95 Like `insert-file-contents' for file archives.

(fn FILENAME &optional VISIT BEG END REPLACE)
(defalias 'tramp-archive-handle-insert-file-contents #[1281 "\301\302!%\303!A@D\203\207" [buffer-file-name insert-file-contents tramp-archive-gvfs-file-name expand-file-name] 11 (#$ . 21976)])
#@92 Like `load' for file archives.

(fn FILE &optional NOERROR NOMESSAGE NOSUFFIX MUST-SUFFIX)
(defalias 'tramp-archive-handle-load #[1281 "\300\301!%\207" [load tramp-archive-gvfs-file-name] 11 (#$ . 22284)])
#@52 Like `temporary-file-directory' for file archives.
(defalias 'tramp-archive-handle-temporary-file-directory #[0 "\303!\211\211\242	>\2052\211\242	>\204\304\305\306D\"\210\211A@\n\230\2052\211\242	>\204/\304\305\306D\"\210\3078\262\242	>\204B\304\305\306D\"\210A@\242	>\204S\304\305\306D\"\210\3108\242	>\204e\304\305\306D\"\210\3118\242	>\204w\304\305\306D\"\210\3128\242	>\204\211\304\305\306D\"\210\3138\242	>\204\235\304\305\306	D\"\210\3148\315!\316\317\320N@!)\207" [default-directory cl-struct-tramp-file-name-tags tramp-archive-method tramp-archive-dissect-file-name signal wrong-type-argument tramp-file-name 7 2 3 4 5 6 file-name-directory eval temporary-file-directory standard-value] 11 (#$ . 22502)])
#@94 Generic handler for operations not implemented for file archives.

(fn OPERATION &rest ARGS)
(defalias 'tramp-archive-handle-not-implemented #[385 "\3061\307\310\311#!0\202\210\312\211\313\314BC\3151\263X\205\257	\203R\316X\203R\310\317\320U\2038\321\202M\322U\203B\321\202M\323U\203L\324\202M\325P#\210\326Y\205\257\320\322U\203\217\3271\212r\330!\203q\331!\202u\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202\216\210\202\217\210\330!\203\233\337\340\"\262)\242\n>\205\257\310\341\342\343\"P$0\202\267\210\202\270\210\266\211\344\345C\312\211\313Y\203\272\211\203\212\211\313\334\346\347!\350\216\f\351 \210)r\fq\210\336 +C\3521\200X\205|	\203\316X\203\310\317\320U\203\321\202\322U\203\321\202\323U\203\324\202\325P#\210\326Y\205|\320\322U\203\\\3531Wr\330!\203>\331!\202B\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202[\210\202\\\210\330!\203h\337\340\"\262)\242\n>\205|\310\341\342\343\"P$0\202\204\210\202\205\210\266\202\272
r\354\355!q\210p\356 \210\312\211;<\357\211=\357>?\360 \210\361\362!\210+\211\351 \210\363!\210)\266\210\211\204\306C\262\314\262\203\322\314\364\211\365N\310\366		#E!C\3671xX\205t	\203\316X\203\310\317\320U\203\375\321\202\322U\203\321\202\323U\203\324\202\325P#\210\326Y\205t\320\322U\203T\3701Or\330!\2036\331!\202:\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202S\210\202T\210\330!\203`\337\340\"\262)\242\n>\205t\310\341\342\343\"P$0\202|\210\202}\210\266\371\372\310\366#!C\"*\266\204\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags signal-hook-function standard-output default-directory (error) tramp-archive-dissect-file-name apply tramp-archive-file-name-for-operation nil 10 "%s" (error) 3 message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " file-error "Operation `%s' not implemented for file archives" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace (error) (error) get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show error-message-string error-message format-message (error) (error) signal substring-no-properties buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only] 19 (#$ . 23264)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook tramp-unload-hook #[0 "\300\301\302\"\207" [unload-feature tramp-archive force] 3] provide tramp-archive] 3)
Zerion Mini Shell 1.0