;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'tramp) #@84 Like `delete-directory' for Tramp files. (fn DIRECTORY &optional RECURSIVE TRASH) (defalias 'tramp-fuse-handle-delete-directory #[769 "\301\302!!\211\242>\204\303\304\305D\"\210\211A@\242>\204$\303\304\305D\"\210\3068\242>\2045\303\304\305D\"\210\3078\242>\204G\303\304\305D\"\210\3108\242>\204Y\303\304\305D\"\210\3118\242>\204k\303\304\305D\"\210\3128\242>\204\303\304\305 D\"\210\3138\314\"\210\315\316\f!  #\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-flush-directory-properties delete-directory tramp-fuse-local-file-name] 15 (#$ . 104)]) #@68 Like `delete-file' for Tramp files. (fn FILENAME &optional TRASH) (defalias 'tramp-fuse-handle-delete-file #[513 "\301\302!!\211\242>\204\303\304\305D\"\210\211A@\242>\204$\303\304\305D\"\210\3068\242>\2045\303\304\305D\"\210\3078\242>\204G\303\304\305D\"\210\3108\242>\204Y\303\304\305D\"\210\3118\242>\204k\303\304\305D\"\210\3128\242>\204\303\304\305 D\"\210\3138\314\315 !\n\"\210\316\"\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 delete-file tramp-fuse-local-file-name tramp-flush-file-properties] 13 (#$ . 798)]) #@91 Like `directory-files' for Tramp files. (fn DIRECTORY &optional FULL MATCH NOSORT COUNT) (defalias 'tramp-fuse-handle-directory-files #[1281 "\304!\204\"\305!\306\307N\203\310#\266\202\"\310\311$\266\312!\205I\313\314!!\262\305!\211\242 >\204A\315\316\317D\"\210\211A@\242 >\204R\315\316\317D\"\210\3208\242 >\204c\315\316\317D\"\210\3218\242 >\204u\315\316\317D\"\210\3228\242 >\204\207\315\316\317D\"\210\3238\242 >\204\231\315\316\317D\"\210\3248\242 >\204\255\315\316\317 D\"\210\3258\326\327!    %\f\203\370\330\331\332 !!P\333\334\211?\205\326\n\335\336\337!\")\266\202\203\347\340\202\350\341\342!!!\343\344\345#\"\266\203\346\211\2037\211@ \206\331!\334\347\350#)\266\203\2030\203%P\211\262\202&\211\235\2040\211B\262A\266\202\202\371\210\n\203A\211\202E\351\352\"\262\266\210\207" [tramp-file-missing cl-struct-tramp-file-name-tags file-name-handler-alist inhibit-changing-match-data file-exists-p tramp-dissect-file-name file-missing error-conditions tramp-error "No such file or directory: %s" file-directory-p file-name-as-directory expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-compat-directory-files tramp-fuse-local-file-name "^" regexp-quote tramp-fuse-mount-point directory-file-name nil string-prefix-p "/:" file-local-name tramp-compat-file-name-quote identity file-remote-p mapcar make-closure #[257 "\302\300\301#\207" [V0 V1 replace-regexp-in-string] 5 "\n\n(fn X)"] (".." ".") t string-match sort string<] 23 (#$ . 1460)]) #@76 Like `file-attributes' for Tramp files. (fn FILENAME &optional ID-FORMAT) (defalias 'tramp-fuse-handle-file-attributes #[513 "\302\303!!\211\242>\204\304\305\306D\"\210\211A@\242>\204$\304\305\306D\"\210\3078\242>\2045\304\305\306D\"\210\3108\242>\204G\304\305\306D\"\210\3118\242>\204Y\304\305\306D\"\210\3128\242>\204k\304\305\306D\"\210\3138\242>\204\304\305\306 D\"\210\3148\315!\203\261\316\317\320 \" $\211 =\203\260\321\322\f! \"\262\323 \317\320\"$\210\207\321\322 !\n\"\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property format "file-attributes-%s" file-attributes tramp-fuse-local-file-name tramp-set-file-property] 17 (#$ . 3050)]) #@58 Like `file-executable-p' for Tramp files. (fn FILENAME) (defalias 'tramp-fuse-handle-file-executable-p #[257 "\302\303!!\211\242>\204\304\305\306D\"\210\211A@\242>\204$\304\305\306D\"\210\3078\242>\2045\304\305\306D\"\210\3108\242>\204G\304\305\306D\"\210\3118\242>\204Y\304\305\306D\"\210\3128\242>\204k\304\305\306D\"\210\3138\242>\204\304\305\306 D\"\210\3148\315!\203\247\316\317 $\211 =\203\246\320\321 !!\262\322 \317$\210\207\320\321\n!!\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-executable-p" file-executable-p tramp-fuse-local-file-name tramp-set-file-property] 15 (#$ . 3908)]) #@76 Like `file-name-all-completions' for Tramp files. (fn FILENAME DIRECTORY) (defalias 'tramp-fuse-handle-file-name-all-completions #[514 "\302\303\304\305\306!\"\307\310\211\203U\211@\311\n\"\203N\3122M\211\203C\211@\211\307\313\314#)\266\203\204<\315\312\307\"\210A\266\202\202!\210\211\316PB\211\2620\210A\266\202\202\262\262\"!\"\207" [completion-regexp-list inhibit-changing-match-data all-completions delete-dups append file-name-all-completions tramp-fuse-local-file-name nil (".." ".") string-prefix-p match t string-match throw "/"] 19 (#$ . 4721)]) #@56 Like `file-readable-p' for Tramp files. (fn FILENAME) (defalias 'tramp-fuse-handle-file-readable-p #[257 "\302\303!!\211\242>\204\304\305\306D\"\210\211A@\242>\204$\304\305\306D\"\210\3078\242>\2045\304\305\306D\"\210\3108\242>\204G\304\305\306D\"\210\3118\242>\204Y\304\305\306D\"\210\3128\242>\204k\304\305\306D\"\210\3138\242>\204\304\305\306 D\"\210\3148\315!\203\247\316\317 $\211 =\203\246\320\321 !!\262\322 \317$\210\207\320\321\n!!\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-readable-p" file-readable-p tramp-fuse-local-file-name tramp-set-file-property] 15 (#$ . 5312)]) #@102 Like `insert-directory' for Tramp files. (fn FILENAME SWITCHES &optional WILDCARD FULL-DIRECTORY-P) (defalias 'tramp-fuse-handle-insert-directory #[1026 "\300\301!$\210eb\210\302\301!\303\304#\205\305!\210\202\f\207" [insert-directory tramp-fuse-local-file-name search-forward nil noerror replace-match] 9 (#$ . 6118)]) #@68 Like `make-directory' for Tramp files. (fn DIR &optional PARENTS) (defalias 'tramp-fuse-handle-make-directory #[513 "\301\302!!\211\242>\204\303\304\305D\"\210\211A@\242>\204$\303\304\305D\"\210\3068\242>\2045\303\304\305D\"\210\3078\242>\204G\303\304\305D\"\210\3108\242>\204Y\303\304\305D\"\210\3118\242>\204k\303\304\305D\"\210\3128\242>\204\303\304\305 D\"\210\3138\314\315 !\n\"\210\316\"\210\317\n\203\236\320\202\241\321!\"\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 make-directory tramp-fuse-local-file-name tramp-flush-file-properties tramp-flush-directory-properties "/" file-name-directory] 14 (#$ . 6454)]) #@43 Return local mount spec of VEC. (fn VEC) (defalias 'tramp-fuse-mount-spec #[257 "\211\242>\204\301\302\303D\"\210\3048\211\205&\242>\204#\301\302\303D\"\210\3058\211\2030\306\307#\207\306\310\"\207" [cl-struct-tramp-file-name-tags signal wrong-type-argument tramp-file-name 4 2 format "%s@%s:/" "%s:/"] 7 (#$ . 7223)]) #@44 Return local mount point of VEC. (fn VEC) (defalias 'tramp-fuse-mount-point #[257 "\302\303\304#\206D\305\242 >\204\306\307\310D\"\210A@\311\242 >\204+\306\307\310D\"\210\3128\2056\313!\314P\315!\260\316\317\320N@\321\"\"\207" [tramp-temp-name-prefix cl-struct-tramp-file-name-tags tramp-get-connection-property "mount-point" nil expand-file-name signal wrong-type-argument tramp-file-name "." 2 tramp-file-name-user-domain "@" tramp-file-name-host-port eval temporary-file-directory standard-value t] 9 (#$ . 7564)]) #@68 Check, whether fuse volume determined by VEC is mounted. (fn VEC) (defalias 'tramp-fuse-mounted-p #[257 "\304!\205\220\305\304!\306\307#\206\220\310\311\312N@\313\"\314\242 >\204'\315\316\317D\"\210A@P\320\321\322\"!\323\324\325D\3261\321\nX\205\313\327X\203q \204q\330\331\332U\203W\333\202l\334U\203a\333\202l\335U\203k\336\202l\337P#\210\n\340Y\205\313\332\334U\203\253\3411\252r\342!\203\220\343!\202\224\344\345\"q\210\346P\262\347\350 C\"\211\262)0\210\202\253\210\342!\203\267\351\352\"\262)\242 >\205\313\330\353\321\354\"P$0\266\202\323\266\323\346C\3261r\nX\205l\327X\203 \204\330\331\332U\203\370\333\202 \334U\203\333\202 \335U\203\f\336\202 \337P#\210\n\340Y\205l\332\334U\203L\3411Kr\342!\2031\343!\2025\344\345\"q\210\346P\262\347\350 C\"\211\262)0\210\202L\210\342!\203X\351\352\"\262)\242 >\205l\330\353\321\354\"P$0\266\202t\266\355\304!\306\356\321\357\360\361\n!!\"\"\205\214\362\334\"#)\266\202\207" [default-directory cl-struct-tramp-file-name-tags tramp-verbose tramp-inhibit-progress-reporter tramp-get-connection-process tramp-get-connection-property "mounted" nil eval temporary-file-directory standard-value t "fuse." signal wrong-type-argument tramp-file-name shell-command-to-string format "mount -t %s" 6 "%s %s" "mount -t" (error) 3 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 "(%d) # " tramp-set-connection-property string-match "^\\(%s\\)\\s-" regexp-quote tramp-fuse-mount-spec match-string] 13 (#$ . 8107)]) #@53 Return local mount name of FILENAME. (fn FILENAME) (defalias 'tramp-fuse-local-file-name #[257 "\303!\304\211?\205\n\305!\211\211?\205\306\307\305!\")\266\202\2034\211G\310U\203.\311\2022\211\310\304O\262\312!P)\266\203\262\313!\211\242 >\204O\314\315\316D\"\210\211A@\242 >\204`\314\315\316D\"\210\3108\242 >\204q\314\315\316D\"\210\3178\242 >\204\203\314\315\316D\"\210\3208\242 >\204\225\314\315\316D\"\210\3218\242 >\204\247\314\315\316D\"\210\3228\242 >\204\273\314\315\316 D\"\210\3238\324!\203f\325\326\n$\211\n=\203e\327\330\331 \242 >\204\345\314\315\316D\"\210 A@\"! !\210\304\211?\205\367\306\307\305!\")\266\202\304\211?\205 \305!\211\211?\205\306\307\305!\")\266\202\2033\211G\310U\203-\311\2021\211\310\304O\262\312!P)\266\203\203C\332\202D\333\303\324!\203R\334\304O\202S\335!\"!\266\202\262\336 \326$\210\207\327\330\331\n\242 >\204y\314\315\316 D\"\210\nA@\"!!\210\304\211?\205\213\306\307\305!\")\266\202\304\211?\205\235\305!\211\211?\205\251\306\307\305!\")\266\202\203\307\211G\310U\203\301\311\202\305\211\310\304O\262\312!P)\266\203\203\327\332\202\330\333\303\324!\203\346\334\304O\202\347\335 !\"!\207" [file-name-handler-alist cl-struct-tramp-file-name-tags tramp-cache-undefined expand-file-name nil file-local-name string-prefix-p "/:" 2 "/" file-remote-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "local-file-name" intern format "tramp-%s-maybe-open-connection" tramp-compat-file-name-quote identity 1 tramp-fuse-mount-point tramp-set-file-property] 20 (#$ . 9813)]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook tramp-unload-hook #[0 "\300\301\302\"\207" [unload-feature tramp-fuse force] 3] provide tramp-fuse] 3)