| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/net/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\"\210\302\305\304\"\210\302\306\304\"\207" [require tramp autoload prop-match-beginning "text-property-search" prop-match-end text-property-search-forward] 3) #@47 Method name for encrypted remote directories. (defconst tramp-crypt-method "crypt" (#$ . 281)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\311\312\313& \210\300\317\302\303\320DD\321\306\307\310\311\312\322& \207" [custom-declare-variable tramp-crypt-encfs-program funcall function #[0 "\300\207" ["encfs"] 1 #1=""] "Name of the encfs program." :group tramp :version "28.1" :type string tramp-crypt-encfsctl-program #[0 "\300\207" ["encfsctl"] 1 #1#] "Name of the encfsctl program." tramp-crypt-encfs-option #[0 "\300\207" ["--standard"] 1 #1#] "Configuration option for encfs.\nThis could be either \"--standard\" or \"--paranoia\". The file\nname IV chaining mode mode will always be disabled when\ninitializing a new encrypted remote directory." (choice (const "--standard") (const "--paranoia"))] 10) #@47 Non-nil when encryption support is available. (defvar tramp-crypt-enabled nil (#$ . 1156)) (byte-code "\302!\302\207" [tramp-crypt-encfs-program tramp-crypt-enabled executable-find] 2) #@138 A predicate for Tramp interactive commands. They are completed by "M-x TAB" only when encryption support is enabled. (fn SYMBOL BUFFER) (defalias 'tramp-crypt-command-completion-p #[514 "\205\f \302=?\206\f \207" [tramp-crypt-enabled tramp-crypt-directories tramp-crypt-remove-directory] 4 (#$ . 1350)]) #@32 Encfs configuration file name. (defconst tramp-crypt-encfs-config ".encfs6.xml" (#$ . 1664)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable tramp-crypt-save-encfs-config-remote funcall function #[0 "\300\207" [t] 1 ""] "Whether to keep the encfs configuration file in the encrypted remote directory." :group tramp :version "28.1" :type boolean] 10) #@39 List of encrypted remote directories. (defvar tramp-crypt-directories nil (#$ . 2067)) #@136 Return the encrypted remote directory NAME belongs to. If NAME doesn't belong to an encrypted remote directory, return nil. (fn NAME) (defalias 'tramp-crypt-file-name-p #[257 "\3042M \205L \211;\205L \211\305\211?\205 \306\307\310!\")\266\202?\205L \311\n\"?\205L \211\205J \211@\306\312\313!!\"\203C \314\304\"\210A\266\202\202, \2620\207" [tramp-crypt-enabled file-name-handler-alist tramp-crypt-encfs-config tramp-crypt-directories crypt-file-name-p nil string-prefix-p "/:" file-local-name string-suffix-p file-name-as-directory expand-file-name throw] 8 (#$ . 2161)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put tramp-crypt-file-name-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@125 Alist of handler functions for crypt method. Operations not mentioned here will be handled by the default Emacs primitives. (defconst tramp-crypt-file-name-handler-alist '((access-file . tramp-crypt-handle-access-file) (add-name-to-file . tramp-handle-add-name-to-file) (copy-directory . tramp-handle-copy-directory) (copy-file . tramp-crypt-handle-copy-file) (delete-directory . tramp-crypt-handle-delete-directory) (delete-file . tramp-crypt-handle-delete-file) (directory-files . tramp-crypt-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) (file-accessible-directory-p . tramp-handle-file-accessible-directory-p) (file-acl . ignore) (file-attributes . tramp-crypt-handle-file-attributes) (file-directory-p . tramp-handle-file-directory-p) (file-equal-p . tramp-handle-file-equal-p) (file-executable-p . tramp-crypt-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-handle-file-local-copy) (file-locked-p . tramp-crypt-handle-file-locked-p) (file-modes . tramp-handle-file-modes) (file-name-all-completions . tramp-crypt-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 . 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 . tramp-crypt-handle-file-ownership-preserved-p) (file-readable-p . tramp-crypt-handle-file-readable-p) (file-regular-p . tramp-handle-file-regular-p) (file-selinux-context . ignore) (file-symlink-p . tramp-handle-file-symlink-p) (file-system-info . tramp-crypt-handle-file-system-info) (file-writable-p . tramp-crypt-handle-file-writable-p) (find-backup-file-name . tramp-handle-find-backup-file-name) (insert-directory . tramp-crypt-handle-insert-directory) (insert-file-contents . tramp-handle-insert-file-contents) (load . tramp-handle-load) (lock-file . tramp-crypt-handle-lock-file) (make-auto-save-file-name . tramp-handle-make-auto-save-file-name) (make-directory . tramp-crypt-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-handle-make-symbolic-link) (process-file . ignore) (rename-file . tramp-crypt-handle-rename-file) (set-file-acl . ignore) (set-file-modes . tramp-crypt-handle-set-file-modes) (set-file-selinux-context . ignore) (set-file-times . tramp-crypt-handle-set-file-times) (set-visited-file-modtime . tramp-handle-set-visited-file-modtime) (shell-command . ignore) (start-file-process . ignore) (temporary-file-directory . tramp-handle-temporary-file-directory) (tramp-set-file-uid-gid . tramp-crypt-handle-set-file-uid-gid) (unhandled-file-name-directory . ignore) (unlock-file . tramp-crypt-handle-unlock-file) (vc-registered . ignore) (verify-visited-file-modtime . tramp-handle-verify-visited-file-modtime) (write-region . tramp-handle-write-region)) (#$ . 2904)) #@98 Like `tramp-file-name-for-operation', but for encrypted remote files. (fn OPERATION &rest ARGS) (defalias 'tramp-crypt-file-name-for-operation #[385 "\305\306#\211\3072S \205R \211;\205R \211\310\211?\205 \311\312\313!\")\266\202?\205R \314\n\"?\205R \211\205P \211@\311\315\316!!\"\203I \317\307\"\210A\266\202\2022 \2620\262\204b \305\306\fAB#\262\207" [tramp-crypt-enabled file-name-handler-alist tramp-crypt-encfs-config tramp-crypt-directories tramp-compat-temporary-file-directory apply tramp-file-name-for-operation crypt-file-name-p nil string-prefix-p "/:" file-local-name string-suffix-p file-name-as-directory expand-file-name throw] 11 (#$ . 6262)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put tramp-crypt-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-crypt-run-real-handler #[514 "\302=\205 B\303\"*\207" [inhibit-file-name-operation inhibit-file-name-handlers tramp-crypt-file-name-handler apply] 5 (#$ . 7112)]) #@175 Invoke the encrypted remote file related OPERATION. First arg specifies the OPERATION, second arg is a list of arguments to pass to the OPERATION. (fn OPERATION &rest ARGS) (defalias 'tramp-crypt-file-name-handler #[385 "\305\306#\211\205` \211\3072W \205V \211;\205V \211\310\211?\205 \311\312\313!\")\266\202?\205V \314\n\"?\205V \211\205T \211@\311\315\316!!\"\203M \317\307\"\210A\266\202\2026 \2620\262\205` \320\f\"\211\203r \321 \322\323\"\216\305A\")\207\324\"\207" [tramp-crypt-enabled file-name-handler-alist tramp-crypt-encfs-config tramp-crypt-directories tramp-crypt-file-name-handler-alist apply tramp-crypt-file-name-for-operation crypt-file-name-p nil string-prefix-p "/:" file-local-name string-suffix-p file-name-as-directory expand-file-name throw assoc match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] tramp-crypt-run-real-handler] 11 (#$ . 7476)]) #@59 Add crypt file name handler to `file-name-handler-alist'. (defalias 'tramp-register-crypt-file-name-handler #[0 "\205 \205 \303\304\n\305B\"\210\306\305\307\310#\207" [tramp-crypt-enabled tramp-crypt-directories tramp-file-name-regexp add-to-list file-name-handler-alist tramp-crypt-file-name-handler put safe-magic t] 4 (#$ . 8407)]) (byte-code "\301 \210\302\303\304\305\306\"#\207" [tramp-crypt-file-name-handler-alist tramp-register-file-name-handlers put tramp-crypt-file-name-handler operations mapcar car] 6) #@54 Return the encfs config file name for VEC. (fn VEC) (defalias 'tramp-crypt-config-file-name #[257 "\303\304\242>\204 \305\306\307D\"\210\3108 Q\n\"\207" [cl-struct-tramp-file-name-tags tramp-crypt-encfs-config user-emacs-directory expand-file-name "tramp-" signal wrong-type-argument tramp-file-name 4] 7 (#$ . 8934)]) #@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-crypt-maybe-open-connection #[257 "\306\307!!\204'