;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304!\207" [require tramp-compat cl-lib make-variable-buffer-local tramp-rfn-eshadow-overlay] 2) #@161 Set up a minibuffer for `file-name-shadow-mode'. Adds another overlay hiding filename parts according to Tramp's special handling of `substitute-in-file-name'. (defalias 'tramp-rfn-eshadow-setup-minibuffer #[0 "\2059\303\304 \304 \"\305\n!\211\2057\211@\306=\204,\307 \211A\262\242\211A\262\242#\210\202\211A\262\211A\262\202\262\207" [minibuffer-completing-file-name tramp-rfn-eshadow-overlay rfn-eshadow-overlay make-overlay minibuffer-prompt-end overlay-properties field overlay-put] 6 (#$ . 227)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [add-hook rfn-eshadow-setup-minibuffer-hook tramp-rfn-eshadow-setup-minibuffer tramp-unload-hook #[0 "\300\301\302\"\207" [remove-hook rfn-eshadow-setup-minibuffer-hook tramp-rfn-eshadow-setup-minibuffer] 3]] 3) #@56 An overlay covering the shadowed part of the filename. (defalias 'tramp-rfn-eshadow-update-overlay-regexp #[0 "\301\302\"\207" [tramp-postfix-host-format format "[^%s/~]*\\(/\\|~\\)"] 3 (#$ . 1013)]) #@249 Update `rfn-eshadow-overlay' to cover shadowed part of minibuffer input. This is intended to be used as a minibuffer `post-command-hook' for `file-name-shadow-mode'; the minibuffer should have already been set up by `rfn-eshadow-setup-minibuffer'. (defalias 'tramp-rfn-eshadow-update-overlay #[0 "\3061C\307!\206\f\310 \311\312d{!\205>\212\214\313 \314 \311\315#)\266\203\206+\211Td}\210 \316\211\317dd#\210\320 -)\2620\207\210\316\207" [rfn-eshadow-overlay non-essential inhibit-changing-match-data tramp-rfn-eshadow-overlay file-name-handler-alist rfn-eshadow-update-overlay-hook (error) overlay-end minibuffer-prompt-end t tramp-tramp-file-p tramp-rfn-eshadow-update-overlay-regexp buffer-string string-match nil move-overlay rfn-eshadow-update-overlay] 8 (#$ . 1221)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [add-hook rfn-eshadow-update-overlay-hook tramp-rfn-eshadow-update-overlay tramp-unload-hook #[0 "\300\301\302\"\207" [remove-hook rfn-eshadow-update-overlay-hook tramp-rfn-eshadow-update-overlay] 3]] 3) #@76 Set `eshell-path-env' to $PATH of the host related to `default-directory'. (defalias 'tramp-eshell-directory-change #[0 "\302\303\304\305 !#\211\207" [path-separator eshell-path-env mapconcat identity butlast tramp-compat-exec-path] 4 (#$ . 2271)]) (eval-after-load 'esh-util #[0 "\300\301\302\"\210\300\303\302\"\210\300\304\305\"\207" [add-hook eshell-mode-hook tramp-eshell-directory-change eshell-directory-change-hook tramp-integration-unload-hook #[0 "\300\301\302\"\210\300\303\302\"\207" [remove-hook eshell-mode-hook tramp-eshell-directory-change eshell-directory-change-hook] 3]] 3]) #@116 Predicate to exclude a remote file name from recentf. NAME must be equal to `tramp-current-connection'. (fn NAME) (defalias 'tramp-recentf-exclude-predicate #[257 "\301!\205 \302\303!@\"\207" [tramp-current-connection file-remote-p tramp-file-name-equal-p tramp-dissect-file-name] 4 (#$ . 2874)]) #@62 Remove all file names related to VEC from recentf. (fn VEC) (defalias 'tramp-recentf-cleanup #[257 "\303\300!\205\205\211C\304\305 *\207" [recentf-list recentf-exclude tramp-current-connection boundp (tramp-recentf-exclude-predicate) recentf-cleanup] 3 (#$ . 3182)]) #@44 Remove all remote file names from recentf. (defalias 'tramp-recentf-cleanup-all #[0 "\302\300!\205\205\303\304 )\207" [recentf-list recentf-exclude boundp (file-remote-p) recentf-cleanup] 2 (#$ . 3463)]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\207" [eval-after-load recentf #[0 "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [add-hook tramp-cleanup-connection-hook tramp-recentf-cleanup tramp-cleanup-all-connections-hook tramp-recentf-cleanup-all tramp-integration-unload-hook #[0 "\300\301\302\"\210\300\303\304\"\207" [remove-hook tramp-cleanup-connection-hook tramp-recentf-cleanup tramp-cleanup-all-connections-hook tramp-recentf-cleanup-all] 3]] 3] ido #[0 "\301>\203 \210\202\301B\302>\203\210\202\302B\303\304\305\"\207" [ido-read-file-name-non-ido tramp-rename-files tramp-rename-these-files add-hook tramp-integration-unload-hook #[0 "\301\302\"\301\303\"\211\207" [ido-read-file-name-non-ido delq tramp-rename-these-files tramp-rename-files] 3]] 3] ivy #[0 "\301\235\203 \210\202\301B\302\235\203\210\202\302B\303\304\305\"\207" [ivy-completing-read-handlers-alist (tramp-rename-files . completing-read-default) (tramp-rename-these-files . completing-read-default) add-hook tramp-integration-unload-hook #[0 "\301\302\236\"\301\303\236\"\211\207" [ivy-completing-read-handlers-alist delete tramp-rename-these-files tramp-rename-files] 3]] 3] info-look #[0 "\300\301\302\303\304\305\306\307\310&\210\311\312\313\"\210\314\315\316\304!\"\211\205\230\211@\211\317=\204,\317\320\304\">\203\221\302\320\304\">\204\221\321\304\"\322\323\321\304\"A!\302\320\304\"BC\"\241\210\324\304!\325\326\304\"\327\304!\"\241\210\311\312\330\331\332\321\333\334DE\322\323\335\321\336\334\fDEDD\337\340\341\320\342\334DEEDEE\332\343\325\326\344\334 DE\345BBEF\"\210A\266\202\202\207" [info-lookup-maybe-add-help :mode tramp-info-lookup-mode :topic symbol :regexp "[^][()`'‘’,\" \n]+" :doc-spec (("(tramp)Function Index" nil "^ -+ .*: " "\\( \\|$\\)") ("(tramp)Variable Index" nil "^ -+ .*: " "\\( \\|$\\)")) add-hook tramp-integration-unload-hook #[0 "\301\236\302\303\301\304\"\305\301!\"\241\210\306\301!\302\307\301\304\"\310\301!\"\241\207" [info-lookup-alist symbol delete info-lookup->mode-value tramp-info-lookup-mode info-lookup->topic-value info-lookup->cache info-lookup->mode-cache info-lookup->topic-cache] 5] mapcar car info-lookup->topic-value emacs-lisp-mode info-lookup->other-modes info-lookup->mode-value append butlast info-lookup->cache delete info-lookup->mode-cache info-lookup->topic-cache lambda nil setcdr 'symbol quote cdr 'symbol list delq 'tramp-info-lookup-mode 'symbol (info-lookup->cache 'symbol) 'symbol ((info-lookup->topic-cache 'symbol))] 17]] 3) #@48 Don't allow ssh ControlMaster while compiling. (defalias 'tramp-compile-disable-ssh-controlmaster-options #[0 "\301\300!\210\302\211\207" [tramp-use-ssh-controlmaster-options make-local-variable nil] 2 (#$ . 6266)]) (eval-after-load 'compile #[0 "\300\301\302\"\210\300\303\304\"\207" [add-hook compilation-mode-hook tramp-compile-disable-ssh-controlmaster-options tramp-integration-unload-hook #[0 "\300\301\302\"\207" [remove-hook compilation-start-hook tramp-compile-disable-ssh-controlmaster-options] 3]] 3]) #@67 Default connection-local system variables for remote connections. (defconst tramp-connection-local-default-system-variables '((path-separator . ":") (null-device . "/dev/null")) (#$ . 6786)) (byte-code "\301\302!\203 \302\303\"\210\301\304!\203\304\305\303\"\210\301\207" [tramp-connection-local-default-system-variables functionp connection-local-set-profile-variables tramp-connection-local-default-system-profile connection-local-set-profiles (:application tramp)] 3) #@66 Default connection-local shell variables for remote connections. (defconst tramp-connection-local-default-shell-variables '((shell-file-name . "/bin/sh") (shell-command-switch . "-c")) (#$ . 7267)) (byte-code "\301\302!\203 \302\303\"\210\304\305\306\"\210\307\310\311\"\210\312\313!\207" [tramp-connection-local-default-shell-variables functionp connection-local-set-profile-variables tramp-connection-local-default-shell-profile eval-after-load shell #[0 "\300\301!\205\n\301\302\303\"\207" [functionp connection-local-set-profiles (:application tramp) tramp-connection-local-default-shell-profile] 3] add-hook tramp-unload-hook #[0 "\300\301\302\"\207" [unload-feature tramp-integration force] 3] provide tramp-integration] 3)