;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (require 'tramp)#@66 When this method name is used, call sudoedit for editing a file. (defconst tramp-sudoedit-method "sudoedit" (#$ . 100)) (add-hook 'tramp--startup-hook #[0 "\303\304\305B\"\210\303\306\307\310!\311Q\312 E\"\210\313\n\"\207" [tramp-sudoedit-method tramp-root-id-string tramp-completion-function-alist-su add-to-list tramp-methods ((tramp-sudo-login (("sudo") ("-u" "%u") ("-S") ("-H") ("-p" "Password:") ("--"))) (tramp-password-previous-hop t)) tramp-default-user-alist "\\`" regexp-quote "\\'" nil tramp-set-completion-function] 5])#@114 List of pattern/action pairs. This list is used for sudo calls. See `tramp-actions-before-shell' for more info. (defconst tramp-sudoedit-sudo-actions '((tramp-password-prompt-regexp tramp-action-password) (tramp-wrong-passwd-regexp tramp-action-permission-denied) (tramp-process-alive-regexp tramp-sudoedit-action-sudo)) (#$ . 642))#@55 Alist of handler functions for Tramp SUDOEDIT method. (defconst tramp-sudoedit-file-name-handler-alist '((abbreviate-file-name . tramp-handle-abbreviate-file-name) (access-file . tramp-handle-access-file) (add-name-to-file . tramp-sudoedit-handle-add-name-to-file) (byte-compiler-base-file-name . ignore) (copy-directory . tramp-handle-copy-directory) (copy-file . tramp-sudoedit-handle-copy-file) (delete-directory . tramp-sudoedit-handle-delete-directory) (delete-file . tramp-sudoedit-handle-delete-file) (diff-latest-backup-file . ignore) (directory-files . tramp-handle-directory-files) (directory-files-and-attributes . tramp-handle-directory-files-and-attributes) (dired-compress-file . ignore) (dired-uncache . tramp-handle-dired-uncache) (exec-path . ignore) (expand-file-name . tramp-sudoedit-handle-expand-file-name) (file-accessible-directory-p . tramp-handle-file-accessible-directory-p) (file-acl . tramp-sudoedit-handle-file-acl) (file-attributes . tramp-sudoedit-handle-file-attributes) (file-directory-p . tramp-handle-file-directory-p) (file-equal-p . tramp-handle-file-equal-p) (file-executable-p . tramp-sudoedit-handle-file-executable-p) (file-exists-p . tramp-sudoedit-handle-file-exists-p) (file-in-directory-p . tramp-handle-file-in-directory-p) (file-local-copy . tramp-handle-file-local-copy) (file-locked-p . tramp-handle-file-locked-p) (file-modes . tramp-handle-file-modes) (file-name-all-completions . tramp-sudoedit-handle-file-name-all-completions) (file-name-as-directory . tramp-handle-file-name-as-directory) (file-name-case-insensitive-p . tramp-handle-file-name-case-insensitive-p) (file-name-completion . tramp-handle-file-name-completion) (file-name-directory . tramp-handle-file-name-directory) (file-name-nondirectory . tramp-handle-file-name-nondirectory) (file-newer-than-file-p . tramp-handle-file-newer-than-file-p) (file-notify-add-watch . tramp-handle-file-notify-add-watch) (file-notify-rm-watch . tramp-handle-file-notify-rm-watch) (file-notify-valid-p . tramp-handle-file-notify-valid-p) (file-ownership-preserved-p . ignore) (file-readable-p . tramp-sudoedit-handle-file-readable-p) (file-regular-p . tramp-handle-file-regular-p) (file-remote-p . tramp-handle-file-remote-p) (file-selinux-context . tramp-sudoedit-handle-file-selinux-context) (file-symlink-p . tramp-handle-file-symlink-p) (file-system-info . tramp-sudoedit-handle-file-system-info) (file-truename . tramp-sudoedit-handle-file-truename) (file-writable-p . tramp-sudoedit-handle-file-writable-p) (find-backup-file-name . tramp-handle-find-backup-file-name) (insert-directory . tramp-handle-insert-directory) (insert-file-contents . tramp-handle-insert-file-contents) (list-system-processes . ignore) (load . tramp-handle-load) (lock-file . tramp-handle-lock-file) (make-auto-save-file-name . tramp-handle-make-auto-save-file-name) (make-directory . tramp-sudoedit-handle-make-directory) (make-directory-internal . ignore) (make-lock-file-name . tramp-handle-make-lock-file-name) (make-nearby-temp-file . tramp-handle-make-nearby-temp-file) (make-process . ignore) (make-symbolic-link . tramp-sudoedit-handle-make-symbolic-link) (memory-info . ignore) (process-attributes . ignore) (process-file . ignore) (rename-file . tramp-sudoedit-handle-rename-file) (set-file-acl . tramp-sudoedit-handle-set-file-acl) (set-file-modes . tramp-sudoedit-handle-set-file-modes) (set-file-selinux-context . tramp-sudoedit-handle-set-file-selinux-context) (set-file-times . tramp-sudoedit-handle-set-file-times) (set-visited-file-modtime . tramp-handle-set-visited-file-modtime) (shell-command . ignore) (start-file-process . ignore) (substitute-in-file-name . tramp-handle-substitute-in-file-name) (temporary-file-directory . tramp-handle-temporary-file-directory) (tramp-get-home-directory . tramp-sudoedit-handle-get-home-directory) (tramp-get-remote-gid . tramp-sudoedit-handle-get-remote-gid) (tramp-get-remote-groups . tramp-sudoedit-handle-get-remote-groups) (tramp-get-remote-uid . tramp-sudoedit-handle-get-remote-uid) (tramp-set-file-uid-gid . tramp-sudoedit-handle-set-file-uid-gid) (unhandled-file-name-directory . ignore) (unlock-file . tramp-handle-unlock-file) (vc-registered . ignore) (verify-visited-file-modtime . tramp-handle-verify-visited-file-modtime) (write-region . tramp-handle-write-region)) (#$ . 981))#@69 Check if it's a VEC-OR-FILENAME for SUDOEDIT. (fn VEC-OR-FILENAME) (defalias 'tramp-sudoedit-file-name-p #[257 "\302!\211\205\211\242>\204\303\304\305D\"\210\211A@ \230\207" [cl-struct-tramp-file-name-tags tramp-sudoedit-method tramp-ensure-dissected-file-name signal wrong-type-argument tramp-file-name] 6 (#$ . 5316)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put tramp-sudoedit-file-name-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@175 Invoke the SUDOEDIT handler for OPERATION and ARGS. First arg specifies the OPERATION, second arg is a list of arguments to pass to the OPERATION. (fn OPERATION &rest ARGS) (defalias 'tramp-sudoedit-file-name-handler #[385 "\301\"\211\203\302 \303\304\"\216\305A\")\207\306\"\207" [tramp-sudoedit-file-name-handler-alist assoc match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] apply tramp-run-real-handler] 7 (#$ . 5803)]) (add-hook 'tramp--startup-hook #[0 "\300\301\302\"\207" [tramp-register-foreign-file-name-handler tramp-sudoedit-file-name-p tramp-sudoedit-file-name-handler] 3])#@71 Connection hop which identifies the virtual hop before the first one. (defconst tramp-sudoedit-null-hop (byte-code "\302\303 \304 \304\211\211\257\207" [tramp-sudoedit-method tramp-system-name tramp-file-name user-login-name nil] 8) (#$ . 6428))#@96 Like `add-name-to-file' for Tramp files. (fn FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS) (defalias 'tramp-sudoedit-handle-add-name-to-file #[770 "\302\"\204\233\303\304!\203\202!\211\242>\204\"\305\306\307D\"\210\211A@\242>\2043\305\306\307D\"\210\3108\242>\204D\305\306\307D\"\210\3118\242>\204V\305\306\307D\"\210\3128\242>\204h\305\306\307D\"\210\3138\242>\204z\305\306\307D\"\210\3148\242>\204\216\305\306\307 D\"\210\3158\316\317\320\321$\266 \303\322!!\211\242>\204\256\305\306\307D\"\210\211A@\242>\204\277\305\306\307D\"\210\3108\242>\204\320\305\306\307D\"\210\3118\242>\204\342\305\306\307D\"\210\3128\242>\204\364\305\306\307D\"\210\3138\242>\204\305\306\307D\"\210\3148\242>\204\305\306\307 D\"\210\3158\303\322 !!\211\242>\2042\305\306\307D\"\210\211A@\242>\204C\305\306\307D\"\210\3108\242>\204T\305\306\307D\"\210\3118\242>\204f\305\306\307D\"\210\3128\242>\204x\305\306\307D\"\210\3138\242>\204\212\305\306\307D\"\210\3148\242>\204\236\305\306\307 D\"\210\3158\323!\203\315\203\275\247\203\310\324\325\326\"!\204\310\316\327#\210\202\315\330!\210\331\"\210\332\333\f\334\211?\205\340 \335!\211\211?\205\354 \336\337\335!\")\266\202\203\n\211G\310U\203\340\202\211\310\334O\262\341!P)\266\203\334\211?\205 \335!\211\211?\205& \336\337\335!\")\266\202\203D\211G\310U\203>\340\202B\211\310\334O\262\341!P)\266\203$?\205Y\316\317\342\343 $\207" [cl-struct-tramp-file-name-tags file-name-handler-alist tramp-equal-remote tramp-dissect-file-name tramp-tramp-file-p signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-error file-error "add-name-to-file: %s" "only implemented for same method, same user, same host" expand-file-name file-exists-p yes-or-no-p format "File %s already exists; make it a link anyway?" file-already-exists delete-file tramp-flush-file-properties tramp-sudoedit-send-command "ln" nil file-local-name string-prefix-p "/:" "/" file-remote-p "error with add-name-to-file, see buffer `%s' for details" buffer-name] 32 (#$ . 6681)])#@873 Copy or rename a remote file. OP must be `copy' or `rename' and indicates the operation to perform. FILENAME specifies the file to copy or rename, NEWNAME is the name of the new file (for copy) or the new name of the file (for rename). OK-IF-ALREADY-EXISTS means don't barf if NEWNAME exists already. KEEP-DATE means to make sure that NEWNAME has the same timestamp as FILENAME. PRESERVE-UID-GID, when non-nil, instructs to keep the uid and gid if both files are on the same host. PRESERVE-EXTENDED-ATTRIBUTES activates selinux and acl commands. This function is invoked by `tramp-sudoedit-handle-copy-file' and `tramp-sudoedit-handle-rename-file'. It is an error if OP is neither of `copy' and `rename'. FILENAME and NEWNAME must be absolute file names. (fn OP FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS KEEP-DATE PRESERVE-UID-GID PRESERVE-EXTENDED-ATTRIBUTES) (defalias 'tramp-sudoedit-do-copy-or-rename-file #[1795 "C\306>\204\307\310 \"\210\211\311\242!\240\210\312\242!\2034\313\242\314$\210\315=\205\316\242\317\"\207\211\242\320!\211\205P\211\242>\204K\321\322\323D\"\210\211A@ \230\266\202\320!\211\205n\211\242>\204i\321\322\323D\"\210\211A@ \230\266\202\324\242!\3258\262\326\242!\205\205\327\242!\f\330=\203\225\203\225\331\202\261\f\332\267\202\244\333\202\261\334\202\261\f\330=\205\261\205\261\331 \330=\203\274\335\202\275\336\337\203\311\242\202\313 !\211\242>\204\332\321\322\323D\"\210\211A@\242>\204\353\321\322\323D\"\210\3408\242>\204\374\321\322\323D\"\210\3418\242>\204\321\322\323D\"\210\3428\242>\204 \321\322\323D\"\210\3258\242>\2042\321\322\323D\"\210\3438\242>\204F\321\322\323 D\"\210\3448\3451\363\204b\346!\203b\347\350#\210\312!\203y\351!\204y\347\352\353$\210\354\242!\203\206\203\222\354!\203\311 \204\311\242\355\356\357\n \"\360\314\"#\266\202\330=\203\265\361\242\314#\210\202\275\362\242\314#\210\362#\266\202[\f\204\321 \203\365\363 \364\242!\364!$\204[\347\352\365\f\242&\210\202[\366\367\370\371 \242$C\3721\341@X\205\333\341X\203BA\204B\373\374\366U\203&\375\202=\376U\2030\375\202=\340U\203:\377\202=\201BP#\210@\342Y\205\333\366@\376U\203\261\201C1\260\201DP\262\201E\201F!\203u\201G!\202~\201H\201I\"r\201J!\204\224\211;\203\230\201K!\203\230\211\202\231pq\210\201L\201M !)\262C\"\211\2620\210\202\261\210\201F!\203\303\201N\201O\"\262)\242>\205\333\373\201P\370\201Q\"P$0\266\202\343\266\201RCA?\205\366@\341^X\205\201S\370\371\f\242$!\211\205\201T\341\201U\201V$\262\201W\201X &\216A\206/\211A\363\n \364\242!\364!$\204R\347\n\352\365\242&\210)\201Y\240)\266\354!\204}\201Z\354\242!P\201[\201\\!\201]\201\\!#\210\203\254\201^1\247\201_?\205\230\201`#\210\201a \"0\210\202\254\210\202\254\210\n\203\311\201b1\304\201c\f\"0\210\202\311\210\202\311\210\203a\315=\203a\337\242!\211\242>\204\350\321\322\323D\"\210\211A@\242>\204\371\321\322\323D\"\210\3408\242>\204\n\321\322\323D\"\210\3418\242>\204\321\322\323D\"\210\3428\242>\204.\321\322\323D\"\210\3258\242>\204@\321\322\323D\"\210\3438\242>\204T\321\322\323 D\"\210\3448\201d\"\266  \205\361\337!\211\242>\204x\321\322\323D\"\210\211A@\242>\204\211\321\322\323D\"\210\3408\242>\204\232\321\322\323D\"\210\3418\242>\204\254\321\322\323D\"\210\3428\242>\204\276\321\322\323D\"\210\3258\242>\204\320\321\322\323D\"\210\3438\242>\204\344\321\322\323 D\"\210\3448\201d\"\266\2100\207\346\242!\204\347 \201e\242#\202\321@A\"\262\266\217\207" [cl-struct-tramp-file-name-tags tramp-sudoedit-method tramp-temp-name-prefix tramp-compat-temporary-file-directory noninteractive inhibit-message (copy rename) error "Unknown operation `%s', must be `copy' or `rename'" file-truename file-directory-p copy-directory t rename delete-directory recursive tramp-ensure-dissected-file-name signal wrong-type-argument tramp-file-name file-attributes 5 tramp-default-file-modes file-extended-attributes copy ("cp" "-f" "-p") #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (copy 156 rename 160)) ("cp" "-f") ("mv" "-f") "Copying" "Renaming" tramp-dissect-file-name 2 3 4 6 7 (error) file-exists-p tramp-error file-already-exists directory-name-p file-error "File is a directory %s" file-remote-p nil make-temp-file expand-file-name file-name-extension copy-file rename-file tramp-sudoedit-send-command tramp-unquote-file-local-name "Error %s `%s' `%s'" 0 "%s..." format #1="%s %s to %s" #2=(error) apply message #3="" 1 #4="Warning: " tramp-verbose tramp-inhibit-progress-reporter #5="Tramp: " #6=(error) #7="\n%s" append processp process-buffer tramp-get-connection-buffer dont-create bufferp get-buffer substring-no-properties buffer-string process-get tramp-vector tramp-debug-message #8="(%d) # " "failed" make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update make-closure #[0 "\300\203\306\300!\210\302\307\310\311\312\303\305\242\304$\301\242D\3131\315%X\205\313\314X\203Q&\204Q\315\316\307U\2037\317\202L\320U\203A\317\202L\321U\203K\322\202L\323P#\210%\324Y\205\313\307%\320U\203\252\3251\251\326P\262\327\330!\203z\331!\202\332\333\"r\334!\204\221\211;\203\225\335!\203\225\211\202\226pq\210\336\337 !)\262C\"\211\2620\210\202\252\210\330!\203\266\340\341\"\262)\242'>\205\313\315\342\311\343\"P$0\207\266\344\207" [V0 V1 V2 V3 V4 V5 cancel-timer 0 "%s...%s" format #1# #2# 3 apply message #3# 1 2 #4# #5# 4 #6# #7# append processp process-buffer tramp-get-connection-buffer dont-create bufferp get-buffer substring-no-properties buffer-string process-get tramp-vector tramp-debug-message #8# nil tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags] 10] "done" tramp-set-file-uid-gid tramp-get-local-uid integer tramp-get-local-gid (error) tramp-compat-set-file-times nofollow set-file-modes (error) set-file-extended-attributes tramp-flush-file-properties file-missing] 34 (#$ . 8856)])#@145 Like `copy-file' for Tramp files. (fn FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS KEEP-DATE PRESERVE-UID-GID PRESERVE-EXTENDED-ATTRIBUTES) (defalias 'tramp-sudoedit-handle-copy-file #[1538 "\300!\262\300!\262\301!\204\301!\203)\302\303&\207\304\305\257\"\207" [expand-file-name tramp-tramp-file-p tramp-sudoedit-do-copy-or-rename-file copy tramp-run-real-handler copy-file] 14 (#$ . 15153)])#@84 Like `delete-directory' for Tramp files. (fn DIRECTORY &optional RECURSIVE TRASH) (defalias 'tramp-sudoedit-handle-delete-directory #[769 "\303\304!!\211\242>\204\305\306\307D\"\210\211A@\242>\204$\305\306\307D\"\210\3108\242>\2045\305\306\307D\"\210\3118\242>\204G\305\306\307D\"\210\3128\242>\204Y\305\306\307D\"\210\3138\242>\204k\305\306\307D\"\210\3148\242>\204\305\306\307 D\"\210\3158 \203\252\203\252 \204\242\316 !\204\242\317\320\321#\210\202\376\322 !\210\202\376\323 \203\266\324\202\267\325\326\211?\205\277\n\327!\211\211?\205\313\n\330\331\327!\")\266\202\203\351\211G\310U\203\343\332\202\347\211\310\326O\262\333!P)\266\203#\204\376\317\320\334$\210\335\"\207" [cl-struct-tramp-file-name-tags delete-by-moving-to-trash file-name-handler-alist tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-compat-directory-empty-p tramp-error file-error "Directory is not empty, not moving to trash" move-file-to-trash tramp-sudoedit-send-command ("rm" "-rf") "rmdir" nil file-local-name string-prefix-p "/:" "/" file-remote-p "Couldn't delete %s" tramp-flush-directory-properties] 23 (#$ . 15592)])#@68 Like `delete-file' for Tramp files. (fn FILENAME &optional TRASH) (defalias 'tramp-sudoedit-handle-delete-file #[513 "\303\304!!\211\242>\204\305\306\307D\"\210\211A@\242>\204$\305\306\307D\"\210\3108\242>\2045\305\306\307D\"\210\3118\242>\204G\305\306\307D\"\210\3128\242>\204Y\305\306\307D\"\210\3138\242>\204k\305\306\307D\"\210\3148\242>\204\305\306\307 D\"\210\3158\316\"\210 \203\227\203\227\317\n!\207\320\321\322\323\211?\205\244\n\324!\211\211?\205\260\n\325\326\324!\")\266\202\203\316\211G\310U\203\310\327\202\314\211\310\323O\262\330!P)\266\203$?\205Ir\331!q\210eb\210\323\332\333 C\334 \335\336\"\216\337!\203\377\206\340!\203 \341!\206\242>\205\331!\242>\203 \206-\211\205-\303\342\343\"\262!\335\344 %\216\345\346%)\266\202)\266\206)\207" [cl-struct-tramp-file-name-tags delete-by-moving-to-trash file-name-handler-alist tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-flush-file-properties move-file-to-trash tramp-sudoedit-send-command "rm" "-f" nil file-local-name string-prefix-p "/:" "/" file-remote-p tramp-get-connection-buffer file-error "Couldn't delete %s" current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] bufferp processp process-buffer buffer-local-value default-directory #[0 "\301\2032\306\f!\2032 \307U\2042\2042\310 \2032\311\312\313\314\303\302#\210\315\301!\210\316 \210\317\f!*\210\320\300@\"\205@\321 \241\207" [V0 V1 V2 V3 tramp-error-show-message-timeout tramp-verbose natnump 0 current-message t nil apply message pop-to-buffer discard-input sit-for tramp-file-name-equal-p current-time non-essential inhibit-message enable-recursive-minibuffers tramp-current-connection] 4] apply tramp-error] 24 (#$ . 16836)])#@186 Like `expand-file-name' for Tramp files. If the localname part of the given file name starts with "/../" then the result will be a local, non-Tramp, file name. (fn NAME &optional DIR) (defalias 'tramp-sudoedit-handle-expand-file-name #[513 "\211\206 \206 \303\262\211\304\230\262\203\305\262\306!\204#\307\"\262\310!\204/\311\312C\"\207\313!\211\242 >\204@\314\315\316D\"\210\211A@\242 >\204Q\314\315\316D\"\210\3178\242 >\204b\314\315\316D\"\210\3208\242 >\204t\314\315\316D\"\210\3218\242 >\204\206\314\315\316D\"\210\3228\242 >\204\230\314\315\316D\"\210\3238\242 >\204\254\314\315\316 D\"\210\3248\211?\206\271\211\304\230\262\203\301\325\262\326\325\327\211?\205\313\n\330!\211\211?\205\327\n\326\331\330!\")\266\202\203\365\211G\317U\203\357\303\202\363\211\317\327O\262\332!P)\266\203\"\203=\327\211?\205 \n\330!\211\211?\205\n\326\331\330!\")\266\202\2033\211G\317U\203-\303\2021\211\317\327O\262\332!P)\266\203\262\306!\204K\333\334#\262\335\336\"\203\337\340\"\337\317\"\327\211?\206d\211\304\230\262\203m\262\341 \"\211\262\203}\211P\262\266\342\327\335\343$\266\203\203\220\303\262\344\326\325\"\203\236\202\243\311\312C\"\"\207" [default-directory cl-struct-tramp-file-name-tags file-name-handler-alist "/" "" "." file-name-absolute-p tramp-compat-file-name-concat tramp-tramp-file-p tramp-run-real-handler expand-file-name tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 "~" string-prefix-p nil file-local-name "/:" file-remote-p format "~%s/%s" string-match "\\`~\\([^/]*\\)\\(.*\\)\\'" match-string 1 tramp-get-home-directory "\\`/\\.\\{1,2\\}\\'" t tramp-make-tramp-file-name] 21 (#$ . 18721)])#@61 Check, whether ACL is enabled on the remote host. (fn VEC) (defalias 'tramp-sudoedit-remote-acl-p #[257 "\301\302!\303#\211=\203\"\304\305\306\211\211\307&\310U\262\311\302!\303#\210\207" [tramp-cache-undefined tramp-get-connection-property tramp-get-process "acl-p" tramp-call-process "getfacl" nil "/" 0 tramp-set-connection-property] 9 (#$ . 20494)])#@49 Like `file-acl' for Tramp files. (fn FILENAME) (defalias 'tramp-sudoedit-handle-file-acl #[257 "\303\304!!\211\242>\204\305\306\307D\"\210\211A@\242>\204$\305\306\307D\"\210\3108\242>\2045\305\306\307D\"\210\3118\242>\204G\305\306\307D\"\210\3128\242>\204Y\305\306\307D\"\210\3138\242>\204k\305\306\307D\"\210\3148\242>\204\305\306\307 D\"\210\3158\316\317 $\211 =\203\354\320 !\205\330\321 \322\323\324\211?\205\245\n\325!\211\211?\205\261\n\326\327\325!\")\266\202\203\317\211G\310U\203\311\330\202\315\211\310\324O\262\331!P)\266\203$\211;\205\340\211\332P\262\262\333 \317$\210\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined file-name-handler-alist tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-get-file-property "file-acl" tramp-sudoedit-remote-acl-p tramp-sudoedit-send-command-string "getfacl" "-acp" nil file-local-name string-prefix-p "/:" "/" file-remote-p "\n" tramp-set-file-property] 23 (#$ . 20863)])#@105 stat format string to produce output suitable for use with `file-attributes' on the remote file system. (defconst tramp-sudoedit-file-attributes (byte-code "\301\302\211\211\211\211\211\211\211& \207" [tramp-stat-marker format "((%s%%N%s) %%h (%s%%U%s . %%u) (%s%%G%s . %%g) %%X %%Y %%Z %%s %s%%A%s t %%i -1)"] 10) (#$ . 21923))#@76 Like `file-attributes' for Tramp files. (fn FILENAME &optional ID-FORMAT) (defalias 'tramp-sudoedit-handle-file-attributes #[513 "\306\307!!\211\242>\204\310\311\312D\"\210\211A@\242>\204$\310\311\312D\"\210\3138\242>\2045\310\311\312D\"\210\3148\242>\204G\310\311\312D\"\210\3158\242>\204Y\310\311\312D\"\210\3168\242>\204k\310\311\312D\"\210\3178\242>\204\310\311\312 D\"\210\3208\321\322\323 \206\217\324\" $\211 =\203\321 \325 $\211 =\203\313\326\n\327\330\331\332\n\n\333\211?\205\266 \334!\211\211?\205\302 \335\336\334!\")\266\202\203\340\211G\313U\203\332\337\202\336\211\313\333O\262\340!P)\266\203&\211\205\275\341 \342\343\"\216@;\203\344\f@\"\203\345\346\333\211@$\240\210\202\373\3138:\203O\3138A\247\2030\3138A\347W\2030AA@ \241\210\350\3138A!\203O\3138A@X\203OAA@\351\3138A!\241\210\3148:\203\215\3148A\247\203n\3148A\347W\203n\314\233@ \241\210\350\3148A!\203\215\3148A@X\203\215\314\233@\351\3148A!\241\210\3158<\204\236\315\233\352\3158!\240\210\3168<\204\257\316\233\352\3168!\240\210\3178<\204\300\317\233\352\3178!\240\210\3208\347W\203\316\320\233\353\240\210\350\3208!\203\351\3208@X\203\351\320\233\351\3208!\240\210\3548;\204\354\233\355\3548!\240\210@;\203\3548\347\356I\210\335\357\3548\"\203\360\240\210@:\2036\211@@;\2054\344\361@@\"\2054\362\363\364@@\"\365\"\240\210\366\233\3148A\367\324\"\206F U?\240\210\350\3708!\203\256\370\233\3711\247\3708\333\211@X\203m\372!\266\203\202\243\373\374\"\262\374\245\262@X\203\213\372!\372!B\266\203\202\243\373\375\"\262\375\245\262\372!\372!\372!BB\266\2030\202\254\210\376 !\240\210\377\233\201A !\240)\210\262\262\262\201B\n\325$\210\211\262\211\205\375\201C\201D\313\"\f\201E=\203\360\3138@\3148@D\202\371\3138A\3148AD\315\233#\262\262\201B \322\323\206\324\"$\210\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined tramp-sudoedit-file-attributes file-name-handler-alist ansi-color-control-seq-regexp tramp-unknown-id-integer tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-get-file-property format "file-attributes-%s" integer "file-attributes" tramp-sudoedit-send-command-and-read "env" "QUOTING_STYLE=locale" "stat" "-c" nil file-local-name string-prefix-p "/:" "/" file-remote-p match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] string-match replace-match "" 0 floatp round seconds-to-time -1 8 tramp-file-mode-from-int 108 "d" t ".+ -> .\\(.+\\)." decode-coding-string match-string 1 utf-8 9 tramp-get-remote-gid 10 (error) floor mod 65536 16777216 tramp-get-inode 11 most-positive-fixnum tramp-get-device tramp-set-file-property append tramp-compat-take string] 28 (#$ . 22258)])#@58 Like `file-executable-p' for Tramp files. (fn FILENAME) (defalias 'tramp-sudoedit-handle-file-executable-p #[257 "\303\304!!\211\242>\204\305\306\307D\"\210\211A@\242>\204$\305\306\307D\"\210\3108\242>\2045\305\306\307D\"\210\3118\242>\204G\305\306\307D\"\210\3128\242>\204Y\305\306\307D\"\210\3138\242>\204k\305\306\307D\"\210\3148\242>\204\305\306\307 D\"\210\3158\316\317 $\211 =\203\364\320 \321#\203\251\322 \323\"\206\352\322 \324\"\202\352\325 \326\327\330\211?\205\267\n\331!\211\211?\205\303\n\332\333\331!\")\266\202\203\341\211G\310U\203\333\334\202\337\211\310\330O\262\335!P)\266\203$\262\336 \317$\210\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined file-name-handler-alist tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-get-file-property "file-executable-p" tramp-file-property-p "file-attributes" tramp-check-cached-permissions 120 115 tramp-sudoedit-send-command "test" "-x" nil file-local-name string-prefix-p "/:" "/" file-remote-p tramp-set-file-property] 23 (#$ . 25129)])#@54 Like `file-exists-p' for Tramp files. (fn FILENAME) (defalias 'tramp-sudoedit-handle-file-exists-p #[257 "\203-\304!\203-\305!\211\242 >\204\306\307\310D\"\210\3118\262\211?\206(\211\312\230\262\206'\313!\205'\305\314!!\211\242 >\204F\306\307\310D\"\210\211A@\242 >\204W\306\307\310D\"\210\3158\242 >\204h\306\307\310D\"\210\3168\242 >\204z\306\307\310D\"\210\3178\242 >\204\214\306\307\310D\"\210\3208\242 >\204\236\306\307\310D\"\210\3118\242 >\204\262\306\307\310 D\"\210\3218\322\323\n$\211\n=\203\"\324 \325#\203\327\322 \325#??\202\326 \327\330\331\211?\205\345 \332!\211\211?\205\361 \333\334\332!\")\266\202\203\211G\315U\203 \335\202 \211\315\331O\262\336!P)\266\203$\262\337 \323$\210\211\262\266\210\207" [minibuffer-completing-file-name cl-struct-tramp-file-name-tags tramp-cache-undefined file-name-handler-alist file-name-absolute-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 6 "" tramp-connectable-p expand-file-name 2 3 4 5 7 tramp-get-file-property "file-exists-p" tramp-file-property-p "file-attributes" tramp-sudoedit-send-command "test" "-e" nil file-local-name string-prefix-p "/:" "/" file-remote-p tramp-set-file-property] 23 (#$ . 26268)])#@76 Like `file-name-all-completions' for Tramp files. (fn FILENAME DIRECTORY) (defalias 'tramp-sudoedit-handle-file-name-all-completions #[514 "\3061n\307\310\311\312\313\314!!\211\242\n>\204\315\316\317D\"\210\211A@\242\n>\2040\315\316\317D\"\210\3208\242\n>\204A\315\316\317D\"\210\3218\242\n>\204S\315\316\317D\"\210\3228\242\n>\204e\315\316\317D\"\210\3238\242\n>\204w\315\316\317D\"\210\3248\242\n>\204\213\315\316\317 D\"\210\3258\326\327 $\211 =\2030\330 \331\332\333\334\211?\206\255\211\335\230\262\203\266\335\202\361\311\211?\205\277\f\336!\211\211?\205\313\f\337\340\336!\")\266\202\203\351\211G\320U\203\343\341\202\347\211\320\311O\262\342!P)\266\203&\210\343\344\345\"\343\346\347\350!r\351!\204\211;\203\352!\203\211\202pq\210\353\354 !)\262\355\356#\"\"\262\357 \327$\210\211\262\266\210\"\360!\203Z\361\211\203Y\211@\337\"\203R\211\341PB\262A\266\202\202=\210 :\203f\343\362\"\202g\211)\262\"!0\207\210\311\207" [read-file-name-completion-ignore-case case-fold-search cl-struct-tramp-file-name-tags tramp-cache-undefined file-name-handler-alist completion-regexp-list (file-missing) delete-dups delq nil all-completions tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-get-file-property "file-name-all-completions" tramp-sudoedit-send-command "ls" "-a1" "--quoting-style=literal" "--show-control-chars" "" file-local-name string-prefix-p "/:" "/" file-remote-p mapcar make-closure #[257 "\3011\302\303\300\"!0\202\210\207\203\304!\207\207" [V0 (error) file-directory-p expand-file-name file-name-as-directory] 5 "\n\n(fn F)"] #[257 "\300\301\302\303$\266\203?\205\211\207" ["^[[:blank:]]*$" nil string-match t] 9 "\n\n(fn L)"] split-string tramp-get-connection-buffer bufferp get-buffer substring-no-properties buffer-string "\n" omit tramp-set-file-property tramp-tramp-file-p (".." ".") #[257 "\211;\205.\3012.\211\203*\211@\211\302\303\304$\266\203\204#\305\301\302\"\210A\266\202\202\n\2620\207" [completion-regexp-list match nil string-match t throw] 11 "\n\n(fn X)"]] 31 (#$ . 27543)])#@56 Like `file-readable-p' for Tramp files. (fn FILENAME) (defalias 'tramp-sudoedit-handle-file-readable-p #[257 "\303\304!!\211\242>\204\305\306\307D\"\210\211A@\242>\204$\305\306\307D\"\210\3108\242>\2045\305\306\307D\"\210\3118\242>\204G\305\306\307D\"\210\3128\242>\204Y\305\306\307D\"\210\3138\242>\204k\305\306\307D\"\210\3148\242>\204\305\306\307 D\"\210\3158\316\317 $\211 =\203\353\320 \321#\203\240\322\n!\202\341\323 \324\325\326\211?\205\256\n\327!\211\211?\205\272\n\330\331\327!\")\266\202\203\330\211G\310U\203\322\332\202\326\211\310\326O\262\333!P)\266\203$\262\334 \317$\210\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined file-name-handler-alist tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-get-file-property "file-readable-p" tramp-file-property-p "file-attributes" tramp-handle-file-readable-p tramp-sudoedit-send-command "test" "-r" nil file-local-name string-prefix-p "/:" "/" file-remote-p tramp-set-file-property] 23 (#$ . 29736)])#@75 Like `set-file-modes' for Tramp files. (fn FILENAME MODE &optional FLAG) (defalias 'tramp-sudoedit-handle-set-file-modes #[770 "\211\302=\205 \303!?\2059\304\305!!C\211\242\242>\204#\306\307\310\242D\"\210\211\242A@\242\242>\2047\306\307\310\242D\"\210\311\2428\242\242>\204K\306\307\310\242D\"\210\312\2428\242\242>\204`\306\307\310\242D\"\210\313\2428\242\242>\204u\306\307\310\242D\"\210\314\2428\242\242>\204\212\306\307\310\242D\"\210\315\2428\242\242>\204\241\306\307\310 \242D\"\210\316\2428\317 !\204\266\320\242\321 #\210\322 \242\"\240\210\323\242!C\324\242!\205\324\325\326\327\"\330\"\326\331 $\216\332\n\242\")\266\333\242\334\335\336\"\337\211?\205\367 \340!\211\211?\205 \341\342\340!\")\266\202\203!\211G\311U\203\343\202\211\311\337O\262\344!P)\266\203$?\2057\320\242\345\346$\266\210\207" [cl-struct-tramp-file-name-tags file-name-handler-alist nofollow file-symlink-p tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-exists-p tramp-error file-missing tramp-file-name-unify tramp-get-hash-table hash-table-p mapcar make-closure #[257 "\211\301\300\242\"B\207" [V0 gethash] 5 "\n\n(fn PROPERTY)"] ("file-directory-p" "file-exists-p" "file-symlinkp" "file-truename") #[0 "\301\303\302\242!\240\210\300\211\205.\211@\211A:\203 \304@A\301\242#\210\202'\305@\301\242\"\210A\266\202\202\207" [V0 V1 V2 tramp-get-hash-table puthash remhash] 6] tramp-flush-file-properties tramp-sudoedit-send-command "chmod" format "%o" nil file-local-name string-prefix-p "/:" "/" file-remote-p file-error "Error while changing file's mode %s"] 24 (#$ . 30834)])#@65 Check, whether SELINUX is enabled on the remote host. (fn VEC) (defalias 'tramp-sudoedit-remote-selinux-p #[257 "\301\302!\303#\211=\203\304\305\"\306U\262\307\302!\303#\210\207" [tramp-cache-undefined tramp-get-connection-property tramp-get-process "selinux-p" tramp-call-process "selinuxenabled" 0 tramp-set-connection-property] 6 (#$ . 32549)])#@61 Like `file-selinux-context' for Tramp files. (fn FILENAME) (defalias 'tramp-sudoedit-handle-file-selinux-context #[257 "\303\304!!\211\242>\204\305\306\307D\"\210\211A@\242>\204$\305\306\307D\"\210\3108\242>\2045\305\306\307D\"\210\3118\242>\204G\305\306\307D\"\210\3128\242>\204Y\305\306\307D\"\210\3138\242>\204k\305\306\307D\"\210\3148\242>\204\305\306\307 D\"\210\3158\316\317 $\211 =\203 \320\321\n!\203\322\n\323\324\325\326\211?\205\247\n\327!\211\211?\205\263\n\330\331\327!\")\266\202\203\321\211G\310U\203\313\332\202\317\211\310\326O\262\333!P)\266\203%\203r\334\n!q\210eb\210\335\336\337 \340#\203\377\341\342!\341\310!\341\311!\341\312!F\262)\211\262\262\343 \317$\210\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined file-name-handler-alist tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-get-file-property "file-selinux-context" (nil nil nil nil) tramp-sudoedit-remote-selinux-p tramp-sudoedit-send-command "ls" "-d" "-Z" nil file-local-name string-prefix-p "/:" "/" file-remote-p tramp-get-connection-buffer re-search-forward "\\([_[:alnum:]]+\\):\\([_[:alnum:]]+\\):\\([_[:alnum:]]+\\):\\([_[:alnum:]]+\\)" line-end-position t match-string 1 tramp-set-file-property] 25 (#$ . 32912)])#@57 Like `file-system-info' for Tramp files. (fn FILENAME) (defalias 'tramp-sudoedit-handle-file-system-info #[257 "\3041\271\305\306!!\211\242>\204\307\310\311D\"\210\211A@\242>\204(\307\310\311D\"\210\3128\242>\2049\307\310\311D\"\210\3138\242>\204K\307\310\311D\"\210\3148\242>\204]\307\310\311D\"\210\3158\242>\204o\307\310\311D\"\210\3168\242>\204\203\307\310\311 D\"\210\3178\315\320C\3211D X\205>\313X\203\307\n\204\307\322\323\324U\203\255\325\202\302\326U\203\267\325\202\302\312U\203\301\327\202\302\330P#\210 \314Y\205>\324\326U\203\3311\332P\262\333\334!\203\356\335!\202\363\336\337\"r\340!\204\211;\203 \341!\203 \211\202\npq\210\342\343 !)\262C\"\211\2620\210\202\210\334!\203*\344\345\"\262)\242>\205>\322\346\347\350\"P$0\266\202F\266\351\352\353\354\355\211?\205U \356!\211\211?\205a \357\360\356!\")\266\202\203\211G\312U\203y\361\202}\211\312\355O\262\362!P)\266\203%\205\265r\336!q\210eb\210\355y\210\363\364!\205\264\365\366\326!!\365\366\326!!\365\366\312!!Z\365\366\313!!E)\266\2100\207\210\355\207" [cl-struct-tramp-file-name-tags tramp-verbose tramp-inhibit-progress-reporter file-name-handler-alist (error) tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 "file system info: %s" (error) apply message 0 "" 1 "Warning: " "Tramp: " (error) "\n%s" append processp process-buffer tramp-get-connection-buffer dont-create bufferp get-buffer substring-no-properties buffer-string process-get tramp-vector tramp-debug-message format "(%d) # " tramp-sudoedit-send-command "df" "--block-size=1" "--output=size,used,avail" nil file-local-name string-prefix-p "/:" "/" file-remote-p looking-at "[[:blank:]]*\\([[:digit:]]+\\)[[:blank:]]+\\([[:digit:]]+\\)[[:blank:]]+\\([[:digit:]]+\\)" string-to-number match-string] 23 (#$ . 34259)])#@75 Like `set-file-times' for Tramp files. (fn FILENAME &optional TIME FLAG) (defalias 'tramp-sudoedit-handle-set-file-times #[769 "\304\305!!C\211\242\242>\204\306\307\310\242D\"\210\211\242A@\242\242>\204*\306\307\310\242D\"\210\311\2428\242\242>\204>\306\307\310\242D\"\210\312\2428\242\242>\204S\306\307\310\242D\"\210\313\2428\242\242>\204h\306\307\310\242D\"\210\314\2428\242\242>\204}\306\307\310\242D\"\210\315\2428\242\242>\204\224\306\307\310 \242D\"\210\316\2428\317 !\204\251\320\242\321 #\210\322 \242\"\240\210\323\242!C\324\242!\205\307\325\326\327\"\330\"\326\331 $\216\332\n\242\")\266 ?\206\353\333\n \"\206\353\333\n\n\"?\205\361 \334 \242\335\336\337\340\341\342\343#\344=\203\n\345\202 \346\n\347\211?\205 \350!\211\211?\205  \351\352\350!\")\266\202\203>\211G\311U\2038\353\202<\211\311\347O\262\354!P)\266\203&\207" [cl-struct-tramp-file-name-tags tramp-time-doesnt-exist tramp-time-dont-know file-name-handler-alist tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-exists-p tramp-error file-missing tramp-file-name-unify tramp-get-hash-table hash-table-p mapcar make-closure #[257 "\211\301\300\242\"B\207" [V0 gethash] 5 "\n\n(fn PROPERTY)"] ("file-directory-p" "file-exists-p" "file-symlinkp" "file-truename") #[0 "\301\303\302\242!\240\210\300\211\205.\211@\211A:\203 \304@A\301\242#\210\202'\305@\301\242\"\210A\266\202\202\207" [V0 V1 V2 tramp-get-hash-table puthash remhash] 6] tramp-flush-file-properties tramp-compat-time-equal-p tramp-sudoedit-send-command "env" "TZ=UTC0" "touch" "-t" format-time-string "%Y%m%d%H%M.%S" t nofollow "-h" "" nil file-local-name string-prefix-p "/:" "/" file-remote-p] 29 (#$ . 36187)])#@54 Like `file-truename' for Tramp files. (fn FILENAME) (defalias 'tramp-sudoedit-handle-file-truename #[257 "\305!\203\n\306\202 \307\310\211?\205\311\312\313!\")\266\202\203$\314\202%\307\315\316!\310\211?\2050\313!\211\211?\205<\311\312\313!\")\266\202\203Z\211G\317U\203T\320\202X\211\317\310O\262\321!P)\266\203!\211\242 >\204q\322\323\324D\"\210\211A@\242 >\204\202\322\323\324D\"\210\3178\242 >\204\223\322\323\324D\"\210\3258\242 >\204\245\322\323\324D\"\210\3268\242 >\204\267\322\323\324D\"\210\3278\242 >\204\311\322\323\324D\"\210\3308\242 >\204\335\322\323\324 D\"\210\3318\332\333\n\334\n$\211\n=\203\327\310 \326\335C\3361\260 X\205\252\325X\2033\f\2043\337\340\341U\203\342\202.\343U\203#\342\202.\317U\203-\344\202.\345P#\210 \326Y\205\252\341\343U\203\212\3461\211\347P\262\350\351!\203Z\352!\202_\353\354\"r\355!\204q\211;\203u\356!\203u\211\202vpq\210\357\360 !)\262C\"\211\2620\210\202\212\210\351!\203\226\361\362\"\262)\242 >\205\252\337\363\364\365\"P$0\266\202\262\266\366\f\367\370 $\262\371!\203\323\211\230\203\323\372\f\373\374$\210\321!\203\211\375\211?\205\341\211?\205\352\311\312\313!\")\266\202\203\373\202\321!\312\313!Q)\266\202\262 \326\376D\3361\307 X\205\301\325X\203J\f\204J\337\340\341U\2030\342\202E\343U\203:\342\202E\317U\203D\344\202E\345P#\210 \326Y\205\301\341\343U\203\241\3461\240\347P\262\350\351!\203q\352!\202v\353\354\"r\355!\204\210\211;\203\214\356!\203\214\211\202\215pq\210\357\360 !)\262C\"\211\2620\210\202\241\210\351!\203\255\361\362\"\262)\242 >\205\301\337\363\364\365\"P$0\266\202\311\266\211\262\262\377 \334$\210\211\262\"\266\210!!\207" [file-name-handler-alist cl-struct-tramp-file-name-tags tramp-cache-undefined tramp-verbose tramp-inhibit-progress-reporter directory-name-p file-name-as-directory identity nil string-prefix-p "/:" file-local-name tramp-compat-file-name-quote tramp-dissect-file-name expand-file-name 2 "/" file-remote-p signal wrong-type-argument tramp-file-name 3 4 5 6 7 tramp-make-tramp-file-name tramp-get-file-property "file-truename" "Finding true name for `%s'" (error) apply message 0 "" 1 "Warning: " "Tramp: " (error) "\n%s" append processp process-buffer tramp-get-connection-buffer dont-create bufferp get-buffer substring-no-properties buffer-string process-get tramp-vector tramp-debug-message format "(%d) # " tramp-sudoedit-send-command-string "readlink" "--canonicalize-missing" file-symlink-p tramp-error file-error "Apparent cycle of symbolic links for %s" top "True name of `%s' is `%s'" tramp-set-file-property] 25 (#$ . 37993)])#@56 Like `file-writable-p' for Tramp files. (fn FILENAME) (defalias 'tramp-sudoedit-handle-file-writable-p #[257 "\303\304!!\211\242>\204\305\306\307D\"\210\211A@\242>\204$\305\306\307D\"\210\3108\242>\2045\305\306\307D\"\210\3118\242>\204G\305\306\307D\"\210\3128\242>\204Y\305\306\307D\"\210\3138\242>\204k\305\306\307D\"\210\3148\242>\204\305\306\307 D\"\210\3158\316\317 $\211 =\203\320\n!\203\354\321 \322#\203\250\323 \324\"\202\373\325 \326\327\330\211?\205\266\n\331!\211\211?\205\302\n\332\333\331!\")\266\202\203\340\211G\310U\203\332\334\202\336\211\310\330O\262\335!P)\266\203$\202\373\336\337 !!\205\373\340\337 !!\262\341 \317$\210\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined file-name-handler-alist tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-get-file-property "file-writable-p" file-exists-p tramp-file-property-p "file-attributes" tramp-check-cached-permissions 119 tramp-sudoedit-send-command "test" "-w" nil file-local-name string-prefix-p "/:" "/" file-remote-p file-directory-p file-name-directory file-writable-p tramp-set-file-property] 23 (#$ . 40756)])#@68 Like `make-directory' for Tramp files. (fn DIR &optional PARENTS) (defalias 'tramp-sudoedit-handle-make-directory #[513 "\302!\262\303!\211\242>\204\304\305\306D\"\210\211A@\242>\204'\304\305\306D\"\210\3078\242>\2048\304\305\306D\"\210\3108\242>\204J\304\305\306D\"\210\3118\242>\204\\\304\305\306D\"\210\3128\242>\204n\304\305\306D\"\210\3138\242>\204\202\304\305\306 D\"\210\3148\204\233\315\n!\203\233\316\317\320 $\210\321\n\203\247\322\202\252\323!\"\210\324\n\203\270\325\202\271\326\327\330\331\332 \"\333\211?\205\310 \334!\211\211?\205\324 \335\336\334!\")\266\202\203\362\211G\307U\203\354\322\202\360\211\307\333O\262\337!P)\266\203%?\205\316\340\341 $\207" [cl-struct-tramp-file-name-tags file-name-handler-alist expand-file-name tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-exists-p tramp-error file-already-exists "Directory already exists %s" tramp-flush-directory-properties "/" file-name-directory tramp-sudoedit-send-command ("mkdir" "-p") "mkdir" "-m" format "%#o" default-file-modes nil file-local-name string-prefix-p "/:" file-remote-p file-error "Couldn't make directory %s"] 24 (#$ . 41987)])#@273 Like `make-symbolic-link' for Tramp files. If TARGET is a non-Tramp file, it is used verbatim as the target of the symlink. If TARGET is a Tramp file, only the localname component is used as the target of the symlink. (fn TARGET LINKNAME &optional OK-IF-ALREADY-EXISTS) (defalias 'tramp-sudoedit-handle-make-symbolic-link #[770 "\304\305!!\211\242>\204\306\307\310D\"\210\211A@\242>\204$\306\307\310D\"\210\3118\242>\2045\306\307\310D\"\210\3128\242>\204G\306\307\310D\"\210\3138\242>\204Y\306\307\310D\"\210\3148\242>\204k\306\307\310D\"\210\3158\242>\204\306\307\310 D\"\210\3168\317\320 !\203\237\321\304 !\"\203\237\322\305\f!!\262 \323\305 \322\n!\"\")\210\320 !\203\350\324 \325\211?\205\275 \211?\205\306 \326\327\330!\")\266\202\203\327\202\337\331!\327\330!Q)\266\202  #\207\332\n!\203\203\247\203 \333\334\335\"!\204 \336\337#\210\202\340\n!\210\323\"\210\341\342\343\344\211?\205& \330!\211\211?\2052 \326\327\330!\")\266\202\203P\211G\311U\203J\345\202N\211\311\344O\262\331!P)\266\203\344\211?\205a \330!\211\211?\205m \326\327\330!\")\266\202\203\213\211G\311U\203\205\345\202\211\211\311\344O\262\331!P)\266\203%\207" [cl-struct-tramp-file-name-tags non-essential default-directory file-name-handler-alist tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 t tramp-tramp-file-p tramp-file-name-equal-p tramp-file-local-name tramp-flush-file-properties make-symbolic-link top string-prefix-p "/:" file-local-name file-remote-p file-exists-p yes-or-no-p format "File %s already exists; make it a link anyway?" tramp-error file-already-exists delete-file tramp-sudoedit-send-command "ln" "-sf" nil "/"] 25 (#$ . 43233)])#@91 Like `rename-file' for Tramp files. (fn FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS) (defalias 'tramp-sudoedit-handle-rename-file #[770 "\300!\262\300!\262\301!\204\301!\203 \302\303\304\305&\207\306\307E\"\207" [expand-file-name tramp-tramp-file-p tramp-sudoedit-do-copy-or-rename-file rename keep-date preserve-uid-gid tramp-run-real-handler rename-file] 10 (#$ . 45041)])#@64 Like `set-file-acl' for Tramp files. (fn FILENAME ACL-STRING) (defalias 'tramp-sudoedit-handle-set-file-acl #[514 "\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;\205\352\315!\205\352\316 \317\320#\321\322\323#\266\202\262 \324\325\326\f\327\211?\205\260 \330!\211\211?\205\274 \331\332\330!\")\266\202\203\332\211G\307U\203\324\333\202\330\211\307\327O\262\334!P)\266\203%\335 \336#\210\207" [cl-struct-tramp-file-name-tags file-name-handler-alist tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-sudoedit-remote-acl-p split-string "\n" omit "," mapconcat identity tramp-sudoedit-send-command "setfacl" "-m" nil file-local-name string-prefix-p "/:" "/" file-remote-p tramp-flush-file-property "file-acl"] 24 (#$ . 45442)])#@73 Like `set-file-selinux-context' for Tramp files. (fn FILENAME CONTEXT) (defalias 'tramp-sudoedit-handle-set-file-selinux-context #[514 "\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:\205R\315!\205R@;\205\232@ A@;\205\246 A@\307 8;\205\262\307 8\310\f8;\205\276\310\f8\316\f\317\205\314\320\321\"\205\326\320\322\"\205\340\320\323\"\205\352\320\324\"\f\325\211?\205\363 \326!\211\211?\205\377 \327\330\326!\")\266\202\203\211G\307U\203\331\202\211\307\325O\262\332!P)\266\203&\205P\203G\203G\203G\211\203G\333\f\334$\210\202O\335\f\334#\210\336\266\204\207" [cl-struct-tramp-file-name-tags file-name-handler-alist tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-sudoedit-remote-selinux-p tramp-sudoedit-send-command "chcon" format "--user=%s" "--role=%s" "--type=%s" "--range=%s" nil file-local-name string-prefix-p "/:" "/" file-remote-p tramp-set-file-property "file-selinux-context" tramp-flush-file-property t] 30 (#$ . 46502)])#@277 The remote home directory for connection VEC as local file name. If USER is a string, return its home directory instead of the user identified by VEC. If there is no user specified in either VEC or USER, or if there is no home directory, return nil. (fn VEC &optional USER) (defalias 'tramp-sudoedit-handle-get-home-directory #[513 "\301\302\206\242>\204\303\304\305D\"\210\3068P!\207" [cl-struct-tramp-file-name-tags expand-file-name "~" signal wrong-type-argument tramp-file-name 2] 8 (#$ . 47820)])#@124 The uid of the remote connection VEC, in ID-FORMAT. ID-FORMAT valid values are `string' and `integer'. (fn VEC ID-FORMAT) (defalias 'tramp-sudoedit-handle-get-remote-uid #[514 "\300\301\"\210\302!\210\303\304\305\"\"\207" [tramp-sudoedit-send-command "id" tramp-read-id-output tramp-get-connection-property format "uid-%s"] 7 (#$ . 48340)])#@124 The gid of the remote connection VEC, in ID-FORMAT. ID-FORMAT valid values are `string' and `integer'. (fn VEC ID-FORMAT) (defalias 'tramp-sudoedit-handle-get-remote-gid #[514 "\300\301\"\210\302!\210\303\304\305\"\"\207" [tramp-sudoedit-send-command "id" tramp-read-id-output tramp-get-connection-property format "gid-%s"] 7 (#$ . 48692)])#@120 Like `tramp-get-remote-groups' for Tramp files. ID-FORMAT valid values are `string' and `integer'. (fn VEC ID-FORMAT) (defalias 'tramp-sudoedit-handle-get-remote-groups #[514 "\300\301\"\210\302!\210\303\304\305\"\"\207" [tramp-sudoedit-send-command "id" tramp-read-id-output tramp-get-connection-property format "groups-%s"] 7 (#$ . 49044)])#@81 Like `tramp-set-file-uid-gid' for Tramp files. (fn FILENAME &optional UID GID) (defalias 'tramp-sudoedit-handle-set-file-uid-gid #[769 "\301\302!!C\211\242\242>\204\303\304\305\242D\"\210\211\242A@\242\242>\204*\303\304\305\242D\"\210\306\2428\242\242>\204>\303\304\305\242D\"\210\307\2428\242\242>\204S\303\304\305\242D\"\210\310\2428\242\242>\204h\303\304\305\242D\"\210\311\2428\242\242>\204}\303\304\305\242D\"\210\312\2428\242\242>\204\224\303\304\305 \242D\"\210\313\2428\314 !\204\251\315\242\316 #\210\317 \242\"\240\210\320\242!C\321\242!\205\307\322\323\324\"\325\"\323\326 $\216\327\n\242\")\266\330\242\331\332\333\206\352\334 \242\335\"\206\365\336\242\335\"#\337!$\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 file-exists-p tramp-error file-missing tramp-file-name-unify tramp-get-hash-table hash-table-p mapcar make-closure #[257 "\211\301\300\242\"B\207" [V0 gethash] 5 "\n\n(fn PROPERTY)"] ("file-directory-p" "file-exists-p" "file-symlinkp" "file-truename") #[0 "\301\303\302\242!\240\210\300\211\205.\211@\211A:\203 \304@A\301\242#\210\202'\305@\301\242\"\210A\266\202\202\207" [V0 V1 V2 tramp-get-hash-table puthash remhash] 6] tramp-flush-file-properties tramp-sudoedit-send-command "chown" format "%d:%d" tramp-get-remote-uid integer tramp-get-remote-gid tramp-unquote-file-local-name] 20 (#$ . 49397)])#@85 Check, whether a sudo process has finished. Remove unneeded output. (fn PROC VEC) (defalias 'tramp-sudoedit-action-sudo #[514 "\303!?\205\357\304!\204eb\210~\210e`|\210eb\210m\204*`\305 U\203*\306y\210\202e`|\210\211\307\310\306\3111\351X\205\343\307X\203l \204l\312\313\314U\203R\315\202g\316U\203\\\315\202g\317U\203f\320\202g\321P#\210\322Y\205\343\314\316U\203\303\3231\302\324P\262\325\326!\203\223\327!\202\230\330\331\"r\332!\204\252\211;\203\256\333!\203\256\211\202\257pq\210\334\335 !)\262C\"\211\2620\210\202\303\210\326!\203\317\336\337\"\262)\242\n>\205\343\312\340\341\342\"P$0\266\202\353\266\343\344\345\"\207" [tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags process-live-p tramp-accept-process-output line-end-position nil 3 "Process has finished." (error) apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) "\n%s" append processp process-buffer tramp-get-connection-buffer dont-create bufferp get-buffer substring-no-properties buffer-string process-get tramp-vector tramp-debug-message format "(%d) # " throw tramp-action ok] 12 (#$ . 50901)])#@173 Maybe open a connection VEC. Does not do anything if a connection is already open, but re-opens the connection if a previous connection has died for some reason. (fn VEC) (defalias 'tramp-sudoedit-maybe-open-connection #[257 "\300!\204 \301\302\211\"\210\303!?\205;\304\305\306!\307\310!\311\312\313\314\315\312\316\312&\f\317\320#\210\321\322\"\210\323!\210\324\325\312#\262\207" [tramp-connectable-p throw non-essential tramp-get-connection-process make-network-process :name tramp-get-connection-name :buffer tramp-get-connection-buffer :server t :host local :service :noquery process-put tramp-vector set-process-query-on-exit-flag nil tramp-set-connection-local-variables tramp-set-connection-property "connected"] 14 (#$ . 52073)])#@262 Send commands ARGS to connection VEC. If an element of ARGS is a list, it will be flattened. If an element of ARGS is nil, it will be deleted. Erases temporary buffer before sending the command. Returns nil in case of error, t otherwise. (fn VEC &rest ARGS) (defalias 'tramp-sudoedit-send-command #[385 "\306!\210r\307!q\210\310 \210\311 \312\313\314!p\315\316\317\320\n\242 >\204-\321\322\323 D\"\210\324 8\2065\325\326\f\242 >\204F\321\322\323D\"\210\327 8\206N\325&\330!\"$\f\331U\203`\327\202a\f\311\332@\333\334\335!\336\337\340#\266\202C\3411.\fX\205(\331X\203\261A\204\261\312\342\343U\203\227\325\202\254\344U\203\241\325\202\254\327U\203\253\345\202\254\346P#\210\f\324Y\205(\343\344U\203\3471\350P\262\315\351!\203\330\352!\202\335\307\353\"r\354!\204\357\211;\203\363\355!\203\363\211\202\364pq\210\356\357 !)\262C\"\211\2620\210\202\210\351!\203\360\361\"\262)\242 >\205(\312\362\363\364\"P$0\266\2020\266\365\366\"\210\367\361#\210\367\370\366#\210\371\332\"\210\372\373B#\210\374\332C$\210\333\375\376!\357 D\3411\fX\205\331X\203\231A\204\231\312\342\343U\203\325\202\224\344U\203\211\325\202\224\327U\203\223\345\202\224\346P#\210\f\324Y\205\343\344U\203\360\3471\357\350P\262\315\351!\203\300\352!\202\305\307\353\"r\354!\204\327\211;\203\333\355!\203\333\211\202\334pq\210\356\357 !)\262C\"\211\2620\210\202\360\210\351!\203\374\360\361\"\262)\242 >\205\312\362\363\364\"P$0\266\202\266\376!\343U\377!.\210\207" [delete-exited-processes tramp-process-connection-type process-connection-type cl-struct-tramp-file-name-tags tramp-verbose tramp-cache-read-persistent-data tramp-sudoedit-maybe-open-connection tramp-get-connection-buffer erase-buffer t apply start-process tramp-get-connection-name append tramp-expand-args tramp-sudo-login 104 signal wrong-type-argument tramp-file-name 4 "" 117 2 tramp-compat-flatten-tree 3 nil 6 "%s" process-command " " mapconcat identity (error) message 0 1 "Warning: " "Tramp: " (error) "\n%s" processp process-buffer dont-create bufferp get-buffer substring-no-properties buffer-string process-get tramp-vector tramp-debug-message format "(%d) # " set-process-sentinel ignore process-put adjust-window-size-function set-process-query-on-exit-flag tramp-set-connection-property "password-vector" tramp-process-actions "%s\n%s" process-exit-status delete-process auth-source-save-behavior tramp-inhibit-progress-reporter tramp-sudoedit-null-hop tramp-sudoedit-sudo-actions] 17 (#$ . 52830)])#@158 Run command ARGS and return the output, which must be a Lisp expression. In case there is no valid Lisp expression, it raises an error. (fn VEC &rest ARGS) (defalias 'tramp-sudoedit-send-command-and-read #[385 "\304\305#\205$r\306!q\210eb\210\307\310\311#\203?eb\210\307\312\310\311#\203-\313\314\310\315#\210\202eb\210\307\310\311#\203?\313\312!\210\2020\316\317\320 C\3211\374 X\205\366\322X\203\n\204\304\323\324U\203e\325\202z\326U\203o\325\202z\327U\203y\330\202z\331P#\210 \332Y\205\366\324\326U\203\326\3331\325\317P\262\334\335!\203\246\336!\202\253\306\337\"r\340!\204\275\211;\203\301\341!\203\301\211\202\302pq\210\342\320 !)\262C\"\211\2620\210\202\326\210\335!\203\342\343\344\"\262)\242 >\205\366\304\345\346\347\"P$0\266\202\376\266eb\210\3501\351p!\352\353\354 \311#\203\355\310!\2100\202#\210\356\357\360@\320 %)\207" [tramp-stat-marker tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags apply tramp-sudoedit-send-command tramp-get-connection-buffer search-forward nil t "\"" replace-match "\\\"" literal 6 "\n%s" buffer-string (error) 3 message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) append processp process-buffer dont-create bufferp get-buffer substring-no-properties process-get tramp-vector tramp-debug-message format "(%d) # " (error) read re-search-forward "[^[:blank:]]" line-end-position error tramp-error file-error "`%s' does not return a valid Lisp expression: `%s'"] 12 (#$ . 55452)])#@74 Run command ARGS and return the output as a string. (fn VEC &rest ARGS) (defalias 'tramp-sudoedit-send-command-string #[385 "\303\304#\205\353r\305!q\210\306\307\310 C\3111\313X\205\305\312X\203N \204N\303\313\314U\2034\315\202I\316U\203>\315\202I\317U\203H\320\202I\321P#\210\322Y\205\305\314\316U\203\245\3231\244\307P\262\324\325!\203u\326!\202z\305\327\"r\330!\204\214\211;\203\220\331!\203\220\211\202\221pq\210\332\310 !)\262C\"\211\2620\210\202\245\210\325!\203\261\333\334\"\262)\242\n>\205\305\303\335\336\337\"P$0\266\202\315\266db\210\340\341\342\343#\203\340\314\224`|\210\202\320deV\205\352\332\310 !)\207" [tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags apply tramp-sudoedit-send-command tramp-get-connection-buffer 6 "\n%s" buffer-string (error) 3 message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) append processp process-buffer dont-create bufferp get-buffer substring-no-properties process-get tramp-vector tramp-debug-message format "(%d) # " looking-back "[ \n ]+" nil greedy] 12 (#$ . 56979)]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook tramp-unload-hook #[0 "\300\301\302\"\207" [unload-feature tramp-sudoedit force] 3] provide tramp-sudoedit] 3)