WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/net
Viewing File: /usr/share/emacs/24.3/lisp/net/tramp-cmds.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:55:35 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/tramp-cmds.el
;;; in Emacs version 24.3.1
;;; 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)
#@48 Return a list of all Tramp connection buffers.
(defalias 'tramp-list-tramp-buffers #[nil "\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 (#$ . 574)])
#@61 Return a list of all buffers with remote default-directory.
(defalias 'tramp-list-remote-buffers #[nil "\300\301\302\303\304 \"\"\207" [delq nil mapcar #[(x) "rq\210	;\205\302	!\205)\207" [x default-directory file-remote-p] 2] buffer-list] 5 (#$ . 852)])
#@174 Flush all connection related objects.
This includes password cache, file cache, connection cache, buffers.
When called interactively, a Tramp connection has to be selected.
(defalias 'tramp-cleanup-connection #[(vec) "\204\303\304!\207\305!\210\306\307\"\210\310\311!!\203%\312\311!!\210\313\311!!\210\313!\210\314\315!!\314\316!!\317\320\321#E\321\211\205U\n@\322	!\203M\323	!\210\nA\211\204@\321*\207" [vec buf --dolist-tail-- message "No Tramp connection found." tramp-clear-passwd tramp-flush-directory-property "" processp tramp-get-connection-process delete-process tramp-flush-connection-property get-buffer tramp-buffer-name tramp-debug-buffer-name tramp-get-connection-property "process-buffer" nil bufferp kill-buffer] 7 (#$ . 1120) (list (let ((connections (mapcar #'(lambda (x) (tramp-make-tramp-file-name (tramp-file-name-method x) (tramp-file-name-user x) (tramp-file-name-host x) (tramp-file-name-localname x))) (tramp-list-connections))) name) (if connections (progn (setq name (completing-read "Enter Tramp connection: " connections nil t (try-completion "" connections))) (if (and name (file-remote-p name)) (progn (let* ((v (tramp-dissect-file-name name)) (method (tramp-file-name-method v)) (user (tramp-file-name-user v)) (host (tramp-file-name-host v)) (localname (tramp-file-name-localname v)) (hop (tramp-file-name-hop v))) v)))))))])
#@74 Flush all connection related objects of the current buffer's connection.
(defalias 'tramp-cleanup-this-connection #[nil ";\205\301!\205\302\303\304\"!\207" [default-directory file-remote-p tramp-cleanup-connection tramp-dissect-file-name noexpand] 4 (#$ . 2505) nil])
#@104 Flush all Tramp internal objects.
This includes password cache, file cache, connection cache, buffers.
(defalias 'tramp-cleanup-all-connections #[nil "\304\305\306!\204\307\306!\203\306 \210\310	!\210\311 \304\211\2055@\312\313\n!!\203-\314\n!\210A\211\204\304*\207" [tramp-locked tramp-cache-data name --dolist-tail-- nil subrp password-reset functionp clrhash tramp-list-tramp-buffers bufferp get-buffer kill-buffer] 4 (#$ . 2787) nil])
#@26 Kill all remote buffers.
(defalias 'tramp-cleanup-all-buffers #[nil "\302 \210\303 \304\211\205#	@\305\306!!\203\307!\210	A\211\204\f\304*\207" [name --dolist-tail-- tramp-cleanup-all-connections tramp-list-remote-buffers nil bufferp get-buffer kill-buffer] 4 (#$ . 3247) nil])
#@67 Print version number of tramp.el in minibuffer or current buffer.
(defalias 'tramp-version #[(arg) "\203	c\207\302	!\207" [arg tramp-version message] 2 (#$ . 3541) "P"])
(autoload 'reporter-submit-bug-report "reporter")
#@46 Submit a bug report to the Tramp developers.
(defalias 'tramp-bug #[nil "\300\301!\210\302\303\215\207" [require reporter dont-send (byte-code "\304\305	\306\307\n\"\310\311\312\313\314\315\313\316\317\320\321#\"\322\"\"\"\323\"\324\325\326&)\207" [reporter-prompt-for-summary-p tramp-bug-report-address tramp-version obarray t reporter-submit-bug-report format "tramp (%s)" sort delq nil mapcar #[(x) "\205
\301!\205
\302B\207" [x boundp tramp-reporter-dump-variable] 2] 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 bkup-backup-directory-info password-cache password-cache-expiry remote-file-name-inhibit-cache file-name-handler-alist) #[(x y) "\302@!\302	@!\231\207" [x y symbol-name] 3] tramp-load-report-modules tramp-append-tramp-buffers "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 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"] 15)] 2 (#$ . 3770) nil])
#@58 Pretty-print the value of the variable in symbol VARSYM.
(defalias 'tramp-reporter-dump-variable #[(varsym mailbuf) "\300Jrq\210	J)\304\n!\203	\305\306\307\310\n!\"!L\210\202C\311\312!\203C\n;\203C\313\314\312J\315Q\n\"\203Crq\210	\306\316\317\n!\"L\210)\320\321!\204O\322\321!\203T\321	\"\210\304\n!\204p\323y\210\324\325!\203m\326\327!\210\330 \210\331c\210\332y\210rq\210	\nL+\207" [reporter-eval-buffer varsym val mailbuf hash-table-p read format "(%s)" tramp-cache-print boundp mm-7bit-chars string-match "[^" "]" "(base64-decode-string \"%s\")" base64-encode-string subrp reporter-dump-variable functionp -1 looking-at "\\(^.*\\)\"\\((base64-decode-string \\)\\\\\\(\".*\\)\\\\\\(\")\\)\"$" replace-match "\\1\\2\\3\\4" beginning-of-line " ;; Variable encoded due to non-printable characters.\n" 1] 6 (#$ . 5448)])
#@36 Load needed modules for reporting.
(defalias 'tramp-load-report-modules #[nil "\300\301\302\303#\210\300\304\302\303#\210\305\306!\204\307\306!\203\306 \210\305\310!\204'\307\310!\205*\310\311!\207" [require message nil noerror mml subrp message-mode functionp mml-mode t] 4 (#$ . 6291)])
#@70 Append Tramp buffers and buffer local variables into the bug report.
(defalias 'tramp-append-tramp-buffers #[nil "db\210\306\307\310\311\312 \"\"\307\211\203\215	@\211\303!\313\314!r\nq\210\315 \210\316 \210\317c\210\320 \210\321\322!\204;\323\322!\203@\322\303p\"\210\324!\307\211\203y	@\211\242\206S
@\325\326\327@!\"\203q\321\322!\204k\323\322!\203q\322@p\"\210)	A\211\204J*\320 \210\330c\210)\331\n!\210+	A\211\204*\332c\210\307\333\334\217\210A\335=\205\336\337!\205\337J\205\340\321\341!\204\265\323\341!\205\267\341 pB\nC\n\205~\342\343\307!!\210\344 \210\307Deb\210m\204\371\345C\346 \347#\203\346\350y\210\202\322\351y\210`E\350y\210\352E`\"\210)\202\322\353c\210F\354Y\203\355c\210`E\356c\210\357E`\360\361D#\210)\362\307!\210\347Deb\210\363\364!\203j\365\307!\210\342B!\210db\210\366c\210\n\307\211\203c	@\321\367!\204M\323\367!\203\\\367\370\371\372\373\374\375\376\300\377&\210	A\211\204>*\362\307!\202~Bq\210\362\307!\210\365\307!\210\201G\201H\307\"+\207" [buffer --dolist-tail-- elbuf buffer-name reporter-eval-buffer varsym-or-cons-cell delq nil mapcar #[(b) "\301\302\303!\"\205\n\207" [b string-match "\\*tramp/" buffer-name] 4] buffer-list get-buffer-create " *tmp-reporter-buffer*" emacs-lisp-mode erase-buffer "\n(setq\n" lisp-indent-line subrp reporter-dump-variable functionp buffer-local-variables string-match "tramp" symbol-name ")\n" insert-buffer-substring "\nload-path shadows:\n==================\n" (byte-code "\300\301\302\303\304!\204\305\304!\205\304\306!\307\"\"\207" [mapc #[(x) "\301\302\"\205\303\261\207" [x string-match "tramp" "\n"] 3] split-string subrp list-load-path-shadows functionp t "\n"] 5) ((error)) message-mode boundp mml-mode "\\*\\(debug \\)?tramp/" tramp-list-tramp-buffers switch-to-buffer list-buffers-noselect delete-other-windows re-search-forward point-at-eol t 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 "\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" description varsym major-mode curbuf tramp-buf-regexp buffer-read-only start tramp-verbose throw dont-send] 13 (#$ . 6592)])
(byte-code "\300\301\302\"\210\303\304\305\"\210\306\307!\207" [defalias tramp-submit-bug tramp-bug add-hook tramp-unload-hook #[nil "\300\301\302\"\207" [unload-feature tramp-cmds force] 3] provide tramp-cmds] 3)
F1l3 Manager
