Current File : //usr/local/share/emacs/27.2/lisp/net/tramp-cmds.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'tramp)
#@157 Change Tramp syntax.
SYNTAX can be one of the symbols `default' (default),
`simplified' (ange-ftp like) or `separate' (XEmacs like).
(fn &optional SYNTAX)
(defalias 'tramp-change-syntax #[256 "\211\205 \300\301\"\207" [customize-set-variable tramp-syntax] 4 (#$ . 426) (byte-code "\301\302\303 \304\305\306!%\211\307\230?\205 \310!C\207" [tramp-syntax completing-read "Enter Tramp syntax: " tramp-syntax-values nil t symbol-name "" intern] 7)])
#@48 Return a list of all Tramp connection buffers.
(defalias 'tramp-list-tramp-buffers #[0 "\300\301\302\303\304\303\305\306 \"\"\"\301\307\303\304\303\305\306 \"\"\"\"\207" [append all-completions "*tramp" mapcar list buffer-name buffer-list "*debug tramp"] 9 (#$ . 883)])
#@63 Return a list of all buffers with remote `default-directory'.
(defalias 'tramp-list-remote-buffers #[0 "\300\301\302\303\304 \"\"\207" [delq nil mapcar #[257 "r\211q\210\301!\205 \211)\207" [default-directory tramp-tramp-file-p] 3 "\n\n(fn X)"] buffer-list] 5 (#$ . 1159)])
#@131 List of functions to be called after Tramp connection is cleaned up.
Each function is called with the current vector as argument.
(defvar tramp-cleanup-connection-hook nil (#$ . 1442))
#@319 Flush all connection related objects.
This includes password cache, file cache, connection cache,
buffers. KEEP-DEBUG non-nil preserves the debug buffer.
KEEP-PASSWORD non-nil preserves the password cache.
When called interactively, a Tramp connection has to be selected.
(fn VEC &optional KEEP-DEBUG KEEP-PASSWORD)
(defalias 'tramp-cleanup-connection #[769 "\204 \302\303!\207\211\204 \304!\210\305\306\307\"\210\310\311!!\203+ \312\311!!\210\313\311!!\210\312!\210 \211\203S \211@\211\314H\315=\203L \316\317H@\"\203L \320!\210A\266\202\2020 \210\321\322!!?\205c \321\323!!\324\325\305#E\211\203\200 \211@\326!\203y \327!\210A\266\202\202i \210\330\331\"\207" [tramp-current-connection timer-list message "No Tramp connection found." tramp-clear-passwd nil tramp-flush-directory-properties "" processp tramp-get-connection-process tramp-flush-connection-properties delete-process 5 tramp-timeout-session tramp-file-name-equal-p 6 cancel-timer get-buffer tramp-buffer-name tramp-debug-buffer-name tramp-get-connection-property "process-buffer" bufferp kill-buffer run-hook-with-args tramp-cleanup-connection-hook] 9 (#$ . 1634) (byte-code "\300\301\302 \"\303\205 \304\305\303\306\307\310\"%\262\311!\205 \312!\266\202\303\211E\207" [mapcar tramp-make-tramp-file-name tramp-list-connections nil completing-read "Enter Tramp connection: " t try-completion "" tramp-tramp-file-p tramp-dissect-file-name] 10)])
#@74 Flush all connection related objects of the current buffer's connection.
(defalias 'tramp-cleanup-this-connection #[0 "\301!\205\f \302\303\304\"!\207" [default-directory tramp-tramp-file-p tramp-cleanup-connection tramp-dissect-file-name noexpand] 4 (#$ . 3082) nil])
#@76 List of functions to be called after all Tramp connections are cleaned up.
(defvar tramp-cleanup-all-connections-hook nil (#$ . 3359))
#@104 Flush all Tramp internal objects.
This includes password cache, file cache, connection cache, buffers.
(defalias 'tramp-cleanup-all-connections #[0 "\304\305 \210\306 !\210\n\211\2038 \3071 \310\311\312\313@8#0\202\" \210\2021 \2031 \314@\n\"\211\262\202\n \211A\262\202\n \210\n\203F \203F \315\302\n\"\210\316\317!\210\320 \211\203e \211@\321\322!!\203^ \323!\210A\266\202\202L \210\324\325!\207" [tramp-locked tramp-cache-data tramp-default-proxies-alist tramp-save-ad-hoc-proxies nil password-reset clrhash (error) get-text-property 0 tramp-ad-hoc 2 delete customize-save-variable cancel-function-timers tramp-timeout-session tramp-list-tramp-buffers bufferp get-buffer kill-buffer run-hooks tramp-cleanup-all-connections-hook] 7 (#$ . 3501) nil])
#@26 Kill all remote buffers.
(defalias 'tramp-cleanup-all-buffers #[0 "\300 \210\301 \211\205 \211@\302\303!!\203 \304!\210A\266\202\202 \207" [tramp-cleanup-all-connections tramp-list-remote-buffers bufferp get-buffer kill-buffer] 5 (#$ . 4270) nil])
(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\317& \207" [custom-declare-variable tramp-default-rename-alist funcall function #[0 "\300\207" [nil] 1] "Default target for renaming remote buffer file names.\nThis is an alist of cons cells (SOURCE . TARGET). The first\nmatching item specifies the target to be applied for renaming\nbuffer file names from source via `tramp-rename-files'. SOURCE\nis a regular expressions, which matches a remote file name.\nTARGET must be a directory name, which could be remote (including\nremote directories Tramp infers by default, such as\n\"/method:user@host:\").\n\nTARGET can contain the patterns %m, %u or %h, which are replaced\nby the method name, user name or host name of SOURCE when calling\n`tramp-rename-files'.\n\nSOURCE could also be a Lisp form, which will be evaluated. The\nresult must be a string or nil, which is interpreted as a regular\nexpression which always matches." :group tramp :version "27.1" :type (repeat (cons (choice :tag "Source regexp" regexp sexp) (choice :tag "Target name" string (const nil)))) tramp-confirm-rename-file-names #[0 "\300\207" [t] 1] "Whether renaming a buffer file name must be confirmed." boolean] 10)
#@221 Determine default file name for renaming according to STRING.
The user option `tramp-default-rename-alist' is consulted,
finding the default mapping. If there is no matching entry, the
function returns nil
(fn STRING)
(defalias 'tramp-default-rename-file #[257 "\302!\205_ \303\304\"\206 \305\303\306\"\206 \305\303\307\"\206 \305\310\211\211A\262\242\211\262\203] \311@!\2065 \305\310\312\313#)\266\203\203! \310\262\314A\315\316\317 \320\n&\"\262\202! \266\205\207" [tramp-default-rename-alist inhibit-changing-match-data tramp-tramp-file-p file-remote-p method "" user host nil eval t string-match format-spec format-spec-make 109 117 104] 16 (#$ . 5795)])
#@87 Return the DIR entry to be applied in `read-file-name', based on STRING.
(fn STRING)
(defalias 'tramp-rename-read-file-name-dir #[257 "\300!\205
\301\302!\303\304#\207" [tramp-tramp-file-p substring file-remote-p 0 -1] 5 (#$ . 6489)])
(put 'tramp-rename-read-file-name-dir 'byte-optimizer 'byte-compile-inline-expand)
#@88 Return the INIT entry to be applied in `read-file-name', based on STRING.
(fn STRING)
(defalias 'tramp-rename-read-file-name-init #[257 "\300!\205& \211\300!\205 \301\302!\303\304#\262\305\"\203$ \301G\"\207\262\207" [tramp-tramp-file-p substring file-remote-p 0 -1 string-prefix-p] 6 (#$ . 6817)])
(put 'tramp-rename-read-file-name-init 'byte-optimizer 'byte-compile-inline-expand)
#@1436 Replace in all buffers the visiting file name from SOURCE to TARGET.
SOURCE is a remote directory name, which could contain also a
localname part. TARGET is the directory name SOURCE is replaced
with. Often, TARGET is a remote directory name on another host,
but it can also be a local directory name. If TARGET has no
local part, the local part from SOURCE is used.
If TARGET is nil, it is selected according to the first match in
`tramp-default-rename-alist'. If called interactively, this
match is offered as initial value for selection.
On all buffers, which have a `buffer-file-name' matching SOURCE,
this name is modified by replacing SOURCE with TARGET. This is
applied by calling `set-visited-file-name'. The new
`buffer-file-name' is prompted for modification in the
minibuffer. The buffers are marked modified, and must be saved
explicitly.
If user option `tramp-confirm-rename-file-names' is nil, changing
the file name happens without confirmation. This requires a
matching entry in `tramp-default-rename-alist'.
Remote buffers related to the remote connection identified by
SOURCE, which are not visiting files, or which are visiting files
not matching SOURCE, are not modified.
Interactively, TARGET is selected from `tramp-default-rename-alist'
without confirmation if the prefix argument is non-nil.
The remote connection identified by SOURCE is flushed by
`tramp-cleanup-connection'.
(fn SOURCE TARGET)
(defalias 'tramp-rename-files #[514 "\303!\204\f \304\305\306#\210\211\204 \307!\211\262\204 \304\305\310\"\210\311\"\203* \304\305\312\"\210\313!\230\2039 \211\314!P\262\315!\262\315!\262\316 \317\320\321\322\323!\324\"\325$\216r\326\327?\205Z \330\305\331 \211\203\211@\332!\210\333 \211;\205y \334\335 !\n#\336\337\340\323\n!!#\341!\203;\203\342\f\"\203\343>\204\330=\204\252 \344 \"\262\345=\203\272 \346\347\350!#\262\351>\203\317 \352 EB\262\353!\210\354>\203\203\355\356!\203\211\203 \211@r\211@q\210\353A@!\210\357\3258!\210)A\266\202\202\341 \210\360\305!\210\266A\266\202\202_ \210)\266*\210\361\362!!\207" [tramp-confirm-rename-file-names help-form help-char tramp-tramp-file-p tramp-user-error nil "Source %s must be remote." tramp-default-rename-file "There is no target specified. Check `tramp-default-rename-alist' for a proper entry." tramp-equal-remote "Source and target must have different remote." file-remote-p tramp-file-local-name directory-file-name current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 "Type SPC or `y' to set visited file name,\nDEL or `n' to skip to next,\n`e' to edit the visited file name,\nESC or `q' to quit without changing further buffers,\n`!' to change all remaining buffers with no more questions." (121 32 110 127 33 101 113 27) 33 tramp-list-remote-buffers switch-to-buffer buffer-file-name replace-regexp-in-string regexp-quote format-message "Set visited file name to `%s' [Type yn!eq or %s] " key-description buffer-live-p string-prefix-p (113 27) read-char-choice 101 read-file-name "New visited file name: " file-name-directory (121 32 33 101) buffer-modified-p set-visited-file-name (113 27) y-or-n-p "Do you want to revert applied changes?" set-buffer-modified-p message tramp-cleanup-connection tramp-dissect-file-name] 17 (#$ . 7220) (byte-code "\306\307\310 \"\311\312\313\211\204 \314\313\315\"\210\202\233 \313\311\316\317\320\321\322\323\324\f!\325\"\326\327%!\330\331\332 !\2069 \333\334 \"%)\262\f?\205\231 \335!\206I \211\330!\205W \336\332!\337\340#\262\330!\205\204 \211\330!\205n \336\332!\337\340#\262\341\"\203\202 \336G\"\266\203\202\206 \262\262\342\332!! \312\343\344\345&)\266\203\262*D\207" [read-file-name-function completing-read-function non-essential default-directory current-prefix-arg tramp-ignored-file-name-regexp mapcar tramp-make-tramp-file-name tramp-list-connections completing-read-default read-file-name-default nil tramp-user-error "There are no remote connections." "Enter old Tramp connection: " completion-table-dynamic make-byte-code 257 "\301!\204 \302\300\"\207\303\304\305\306\307\310!\311\"\312\313%\314 \"\207" vconcat vector [tramp-tramp-file-p all-completions mapcar make-byte-code 257 "\301!\302!\205 \303\300\"\205 \211;\205 \304!\207" vconcat vector [buffer-file-name buffer-live-p tramp-equal-remote file-name-directory] 5 "\n\n(fn BUFFER)" tramp-list-remote-buffers] 8 "\n\n(fn STRING)" tramp-tramp-file-p t file-remote-p try-completion "" tramp-default-rename-file substring 0 -1 string-prefix-p regexp-quote "Enter new Tramp connection: " confirm file-directory-p] 15)])
#@383 Replace visiting file names to TARGET.
The current buffer must be related to a remote connection. In
all buffers, which are visiting a file with the same directory
name, the buffer file name is changed.
Interactively, TARGET is selected from `tramp-default-rename-alist'
without confirmation if the prefix argument is non-nil.
For details, see `tramp-rename-files'.
(fn TARGET)
(defalias 'tramp-rename-these-files #[257 "\301\"\207" [default-directory tramp-rename-files] 4 (#$ . 11926) (byte-code "\305\306\307\310!\204 \311\305\312\313!\"\210\202x ?\205v \314!\206\" \211\310!\2050 \315\316!\317\320#\262\310!\205] \211\310!\205G \315\316!\317\320#\262\321\"\203[ \315G\"\266\203\202_ \262\262\322\316!! \307\323\324\"\325\326&)\266\203\262*\211C\207" [default-directory read-file-name-function completing-read-function current-prefix-arg tramp-ignored-file-name-regexp nil completing-read-default read-file-name-default tramp-tramp-file-p tramp-user-error substitute-command-keys "Current buffer is not remote. Consider `\\[tramp-rename-files]' instead." tramp-default-rename-file substring file-remote-p 0 -1 string-prefix-p regexp-quote format "Change Tramp connection `%s': " confirm file-directory-p] 12)])
#@77 Print version number of tramp.el in minibuffer or current buffer.
(fn ARG)
(defalias 'tramp-version #[257 "\211\203 c\207\301!\207" [tramp-version message] 3 (#$ . 13185) "P"])
(autoload 'reporter-submit-bug-report "reporter")
#@46 Submit a bug report to the Tramp developers.
(defalias 'tramp-bug #[0 "\306\307\310\n\311\312 \f
$\313\314\307\315\316\317\315\320\321\322 \323#\"\324\"\"\"\325\"\326\327\330\331\332\333#&*\207" [tramp-password-save-function reporter-prompt-for-summary-p tramp-bug-report-address tramp-version tramp-repository-branch tramp-repository-version t nil reporter-submit-bug-report format "tramp (%s %s/%s)" sort delq mapcar #[257 "\211\205
\300!\205
\211\301B\207" [boundp tramp-reporter-dump-variable] 3 "\n\n(fn X)"] append intern all-completions "tramp-" boundp (shell-prompt-pattern backup-by-copying backup-by-copying-when-linked backup-by-copying-when-mismatch backup-by-copying-when-privileged-mismatch backup-directory-alist password-cache password-cache-expiry remote-file-name-inhibit-cache connection-local-profile-alist connection-local-criteria-alist file-name-handler-alist) #[514 "\300@!\300@!\231\207" [symbol-name] 5 "\n\n(fn X Y)"] tramp-load-report-modules tramp-append-tramp-buffers propertize "\n" display "Enter your bug report in this message, including as much detail\nas you possibly can about the problem, what you did to cause it\nand what the local and remote machines are.\n\nIf you can give a simple set of instructions to make this bug\nhappen reliably, please include those. Thank you for helping\nkill bugs in Tramp.\n\nBefore reproducing the bug, you might apply\n\n M-x tramp-cleanup-all-connections\n\nThis allows us to investigate from a clean environment. Another\nuseful thing to do is to put\n\n (setq tramp-verbose 9)\n\nin your init file and to repeat the bug. Then, include the\ncontents of the *tramp/foo* buffer and the *debug tramp/foo*\nbuffer in your bug report.\n\n--bug report follows this line--\n" obarray] 15 (#$ . 13422) nil])
#@79 Pretty-print the value of the variable in symbol VARSYM.
(fn VARSYM MAILBUF)
(defalias 'tramp-reporter-dump-variable #[514 "\300Jrq\210J)\303!\203 \304\305\306\307!\"!L\210\202M \211;\203M \310\311\301!\205+ \312Q\313\314\315#)\266\203\203M rq\210\305\316\317\320\321\"!\"L\210)\322\"\210\303!\204n \323y\210\324\325!\203k \326\327!\210\330 \210\331c\210\332y\210rq\210L*\207" [reporter-eval-buffer mm-7bit-chars inhibit-changing-match-data hash-table-p read format "(%s)" tramp-cache-print "[^" boundp "]" nil t string-match "(decode-coding-string (base64-decode-string \"%s\") 'raw-text)" base64-encode-string encode-coding-string raw-text reporter-dump-variable -1 looking-at "\\(^.*\\)\"\\((base64-decode-string \\)\\\\\\(\".*\\)\\\\\\(\")\\)\"$" replace-match "\\1\\2\\3\\4" beginning-of-line " ;; Variable encoded due to non-printable characters.\n" 1] 10 (#$ . 15218)])
#@36 Load needed modules for reporting.
(defalias 'tramp-load-report-modules #[0 "\300 \210\301\302!\207" [message-mode mml-mode t] 2 (#$ . 16124)])
#@70 Append Tramp buffers and buffer local variables into the bug report.
(defalias 'tramp-append-tramp-buffers #[0 "db\210\305c\210\306\307\310\311\312 \"\"\211\203g \211@\211\313\314!r\211q\210\315 \210\316 \210\317\320\321!\"c\210\322 \210\323\324\310\325\326\327\330 !\"\"\331\"\332\"\211\203Q \211@\333\"\210A\266\202\202? \210\322 \210\334c\210)\335!\210)\266A\266\202\202 \210\336c\210\3371| \340\341\342\343\344!\345\"\"0\202\200 \210\202\201 \210 \346=\2059\347\302!\2059\n\2059\350\351 p\2057\352\353\307!!\210\354 \210\307eb\210m\204\312 \355\356 \344#\203\272 \357y\210\202\247 \360y\210`\357y\210\361`\"\266\202\247 \362c\210\f\363Y\203\341 \364c\210`\365c\210\366`\367#\266\370\307!\210\344eb\210\371\372!\2057\373\307!\210\352!\210db\210\374\345\375\376#c\210\211\2033\211@\377\201@ \201A \201B \201C \201D \201E \201F \201G \201H & \210A\266\202\202\210\370\307!\266\203\207" [reporter-eval-buffer major-mode mml-mode buffer-read-only tramp-verbose "\nlocal variables:\n================" delq nil mapcar #[257 "\301\302!\303\304\305#)\266\203\205 \211\207" [inhibit-changing-match-data "\\*tramp/" buffer-name nil t string-match] 8 "\n\n(fn B)"] buffer-list get-buffer-create " *tmp-reporter-buffer*" emacs-lisp-mode erase-buffer format "\n;; %s\n(setq-local\n" buffer-name lisp-indent-line sort append intern all-completions "tramp-" buffer-local-variables (connection-local-variables-alist default-directory) string< reporter-dump-variable ")\n" insert-buffer-substring "\nload-path shadows:\n==================\n" (error) mapc #[257 "\301\302\303\304#)\266\203\205 \211\305\261\207" [inhibit-changing-match-data "tramp" nil t string-match "\n"] 8 "\n\n(fn X)"] split-string list-load-path-shadows t "\n" message-mode boundp "\\*\\(debug \\)?tramp/" tramp-list-tramp-buffers switch-to-buffer list-buffers-noselect delete-other-windows re-search-forward point-at-eol 1 0 kill-region "\nThe buffer(s) above will be appended to this message. If you\ndon't want to append a buffer because it contains sensitive data,\nor because the buffer is too large, you should delete the\nrespective buffer. The buffer(s) will contain user and host\nnames. Passwords will never be included there." 6 "\n\n" "Please note that you have set `tramp-verbose' to a value of at\nleast 6. Therefore, the contents of files might be included in\nthe debug buffer(s)." add-text-properties (face italic) set-buffer-modified-p y-or-n-p "Do you want to append the buffer(s)? " kill-buffer propertize display "\nThis is a special notion of the `gnus/message' package. If you\nuse another mail agent (by copying the contents of this buffer)\nplease ensure that the buffers are attached to your email.\n\n" mml-insert-empty-tag part type "text/plain" encoding "base64" disposition "attachment" buffer description] 17 (#$ . 16274)])
(byte-code "\300\301\302\"\210\303\304\305\"\210\306\307!\207" [defalias tramp-submit-bug tramp-bug add-hook tramp-unload-hook #[0 "\300\301\302\"\207" [unload-feature tramp-cmds force] 3] provide tramp-cmds] 3)
Mini Shell