Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/net/tramp-integration.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(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 "\205:\303\304 \304 \"\305\n!\211\2058\211@\306=\204,\307	\211A\262\242\211A\262\242#\210\202\211A\262
\211
A\266\202\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 (#$ . 548)])
(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 (#$ . 1338)])
#@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\312
d{!\205>\212\214\313 \314 \311\315#)\266\203\206+\211Td}\210\316\211\317dd#\210\320 -)\262
0\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 (#$ . 1546)])
(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 (#$ . 2596)])
(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 (#$ . 3199)])
#@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 (#$ . 3507)])
#@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 (#$ . 3788)])
(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-these-rename-files add-hook tramp-integration-unload-hook #[0 "\301\302\"\301\303\"\211\207" [ido-read-file-name-non-ido delq tramp-these-rename-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-these-rename-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-these-rename-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\334DE\345BBEF\"\210
A\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)
#@60 Default connection-local variables for remote connections.
(defconst tramp-connection-local-default-profile '((shell-file-name . "/bin/sh") (shell-command-switch . "-c")) (#$ . 6591))
(byte-code "\300\301\302\"\210\303\304\305\"\210\306\307!\207" [eval-after-load shell #[0 "\301\302!\203\302\300\"\210\301\303!\205\303\304\300\"\207" [tramp-connection-local-default-profile functionp connection-local-set-profile-variables connection-local-set-profiles (:application tramp)] 3] add-hook tramp-unload-hook #[0 "\300\301\302\"\207" [unload-feature tramp-integration force] 3] provide tramp-integration] 3)