;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (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) (#$ . 275)) (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") (#$ . 466)) #@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") (#$ . 841)) #@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 (#$ . 1058)])) #@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) (#$ . 1377)) #@35 Method name for archives in GVFS. (defconst tramp-archive-method "archive" (#$ . 1685)) #@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) (#$ . 1779)) #@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) (tramp-get-remote-gid . ignore) (tramp-get-remote-uid . ignore) (tramp-set-file-uid-gid . ignore) (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)) (#$ . 2035)) #@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\"\216\300\303M\210\304\305#)\207" [tramp-tramp-file-p make-closure #[0 "\301\300M\207" [V0 tramp-tramp-file-p] 2] tramp-archive-file-name-p apply tramp-file-name-for-operation] 7 (#$ . 5346)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put tramp-archive-file-name-for-operation speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@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 (#$ . 5881)]) #@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\315C\"\2033\307\"\202z\nC B\f\316 \317 \320 \"\211A\321=\203ZB\262\211\203q\322 \323\324\"\216\310A\n\")\262\202w\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-exists-p file-directory-p user-uid user-login-name assoc tramp-archive-handle-not-implemented match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] tramp-unknown-id-string tramp-unknown-id-integer tramp-gvfs-methods] 13 (#$ . 6249)]) #@89 Load Tramp archive file name handler, and perform OPERATION. (fn OPERATION &rest ARGS) (defalias 'tramp-archive-autoload-file-name-handler #[385 "\205\f \303\304#)\207" [tramp-archive-enabled temporary-file-directory default-directory apply tramp-autoload-file-name-handler] 6 (#$ . 7284)]) #@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 (#$ . 7587)]) (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 (#$ . 8768)]) #@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 (#$ . 9102)]) #@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 (#$ . 9287)]) #@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) (#$ . 9477)) #@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 (#$ . 9745)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put tramp-archive-gvfs-host speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@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\"\216\311!\204\312\313\314#\210\315!\316\317!!\320\313\211\211\211\211\257\321 \"\2037\321 \"@\262\202\202\311!\203k\322\323!\313\324#\242\n>\204R\325\326\320D\"\210\327\233\211\330\331!!\262\240\266\332C #\210\202\202 \203\365\f\203\365 \313\333)\334#)\266\203\203\365\335\336!\337!*>\204\230\325\326\340D\"\210\211\341H\262\313\333)\334#)\266\203\203\365\336!\337!*>\204\277\325\326\340D\"\210\211\341H\262+B+\342!\242\n>\204\332\325\326\320D\"\210\327\233\211\330\331!!\262\240\266)\210\332C #\210\202\202\343!\205\344!\211\242\n>\204 \325\326\320D\"\210\211A@\262\211;\205\211,\235\262\262\204(\345!\204O\211\242\n>\2046\325\326\320D\"\210\327\233\211\330\331!!\262\240\266\332C #\210\202\202\346-\347.B.\346!\242\n>\204i\325\326\320D\"\210\327\233\211\330\331!!\262\240\266\332B #\210*\210\211\242\n>\204\220\325\326\320D\"\210\350\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-closure #[0 "\301\300\302\"\207" [V0 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 (#$ . 10093)]) #@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\264\211@\305\306A\206C\3071\251X\205\243\305X\203I \204I\310\311\312U\203/\313\202D\314U\2039\313\202D\315U\203C\316\202D\317P#\210\320Y\205\243\312\314U\203\203\3211\202r\322!\203h\323!\202l\324\325\"q\210\326P\262\327\330 C\"\211\262)0\210\202\203\210\322!\203\217\331\332\"\262)\242\n>\205\243\310\333\334\335\"P$0\266\202\253\266\336@!0\210\202\265\210\3371\302\340A!0\210\202\303\210\341 \"\207" [tramp-verbose tramp-inhibit-progress-reporter 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 (#$ . 12256)]) (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 (#$ . 13660)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put tramp-file-name-archive speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@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\300\306\307\"A\"B\"\310\206\311\312DDB\313\300\306\"BBBB\207" [mapcar make-closure #[257 "\300\203\301\302\303\300#!\202\211\301\302\304\"!\300\206\305DD\207" [V0 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 (#$ . 14333)])) (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 (#$ . 15475)]) #@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 (#$ . 15680)]) #@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 "\300!\203\301\302!\303\304$\210\305\306!&\207" [tramp-archive-file-name-p tramp-error tramp-archive-dissect-file-name file-error "Permission denied: %s" copy-file tramp-archive-gvfs-file-name] 13 (#$ . 15877)]) #@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\276\211GSH\315=\203\276\211\316\230\204\276\314\317O\207\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 "/" -1] 12 (#$ . 16310)]) #@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 (#$ . 17063)]) #@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 (#$ . 17251)]) #@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 (#$ . 17472)]) #@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 (#$ . 17677)]) #@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 (#$ . 17876)]) #@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 (#$ . 18117)]) #@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 (#$ . 18316)]) #@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\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 (#$ . 19016)]) #@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 (#$ . 19815)]) #@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!%\203\303!AB\207" [buffer-file-name insert-file-contents tramp-archive-gvfs-file-name expand-file-name] 11 (#$ . 20159)]) #@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 (#$ . 20465)]) #@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@\321\")\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 t] 11 (#$ . 20683)]) #@94 Generic handler for operations not implemented for file archives. (fn OPERATION &rest ARGS) (defalias 'tramp-archive-handle-not-implemented #[385 "\3031\304\305\306#!0\202\210\307\211\310\311BC\3121\262X\205\254\313X\203R \204R\305\314\315U\2038\316\202M\317U\203B\316\202M\320U\203L\321\202M\322P#\210\323Y\205\254\315\317U\203\214\3241\213r\325!\203q\326!\202u\327\330\"q\210\331P\262\332\333 C\"\211\262)0\210\202\214\210\325!\203\230\334\335\"\262)\242\n>\205\254\305\336\337\340\"P$0\266\202\264\266\341\342\343$\207" [tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags (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) # " tramp-error file-error "Operation `%s' not implemented for file archives"] 13 (#$ . 21452)]) (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)