;ELC
;;; Compiled
;;; in Emacs version 26.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)
#@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\302DD!\207" [custom-set-variables tramp-syntax quote] 5 (#$ . 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 (#$ . 892)])
#@61 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 (#$ . 1168)])
#@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 \301\302!\207\211\204 \303!\210\211\203 \304\305\306\"\210\307\310!!\203/ \311\310!!\210\312\310!!\210\311!\210\313\314!!?\205B \313\315!!\316\317\304#E\211\205_ \211@\320!\203X \321!\210A\266\202\202H \207" [tramp-current-connection message "No Tramp connection found." tramp-clear-passwd nil tramp-flush-directory-property "" processp tramp-get-connection-process tramp-flush-connection-property delete-process get-buffer tramp-buffer-name tramp-debug-buffer-name tramp-get-connection-property "process-buffer" bufferp kill-buffer] 9 (#$ . 1449) (byte-code "\300\301\302 \"\303\205 \304\305\303\306\307\310\"%\262\311!\205 \312!\266\202\303\211E\207" [mapcar #[257 "\301\242>\204 \302\303\304D\"\210A@\242>\204 \302\303\304D\"\210\3058\242>\2042 \302\303\304D\"\210\3068\242>\204D \302\303\304D\"\210\3078\242>\204V \302\303\304D\"\210\3108\242>\204j \302\303\304 D\"\210\3118&\207" [cl-struct-tramp-file-name-tags tramp-make-tramp-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6] 11 "\n\n(fn X)"] 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 (#$ . 3036) nil])
#@104 Flush all Tramp internal objects.
This includes password cache, file cache, connection cache, buffers.
(defalias 'tramp-cleanup-all-connections #[0 "\302\303 \210\304 !\210\305 \211\205$ \211@\306\307!!\203 \310!\210A\266\202\202 \207" [tramp-locked tramp-cache-data nil password-reset clrhash tramp-list-tramp-buffers bufferp get-buffer kill-buffer] 5 (#$ . 3314) 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 (#$ . 3697) nil])
#@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 (#$ . 3957) "P"])
(autoload 'reporter-submit-bug-report "reporter")
#@46 Submit a bug report to the Tramp developers.
(defalias 'tramp-bug #[0 "\3042+ \305\306 \307\310\n\"\311\312\313\314\315\316\314\317\320\321 \322#\"\323\"\"\"\324\"\325\326\327\330\331\332#&)0\207" [reporter-prompt-for-summary-p tramp-bug-report-address tramp-version obarray dont-send t reporter-submit-bug-report format "tramp (%s)" sort delq nil 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"] 15 (#$ . 4193) nil])
#@79 Pretty-print the value of the variable in symbol VARSYM.
(fn VARSYM MAILBUF)
(defalias 'tramp-reporter-dump-variable #[514 "\300Jrq\210J)\302!\203 \303\304\305\306!\"!L\210\202D \211;\203D \307\310\311\301!\205, \312Q\"\203D rq\210\304\313\314\315\316\"!\"L\210)\317\"\210\302!\204e \320y\210\321\322!\203b \323\324!\210\325 \210\326c\210\327y\210rq\210L*\207" [reporter-eval-buffer mm-7bit-chars hash-table-p read format "(%s)" tramp-cache-print string-match "[^" boundp "]" "(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 (#$ . 5914)])
#@36 Load needed modules for reporting.
(defalias 'tramp-load-report-modules #[0 "\300 \210\301\302!\207" [message-mode mml-mode t] 2 (#$ . 6765)])
#@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=\205O\347\302!\205O\n\205O\350\351 p\205M\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!\203:\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!\202M\211q\210\370\307!\210\373\307!\210\201I \201J \307\"\266\203\207" [reporter-eval-buffer major-mode mml-mode buffer-read-only tramp-verbose "\nlocal variables:\n================" delq nil mapcar #[257 "\300\301\302!\"\205\n \211\207" [string-match "\\*tramp/" buffer-name] 5 "\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 "\300\301\"\205 \211\302\261\207" [string-match "tramp" "\n"] 4 "\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 throw dont-send] 17 (#$ . 6914)])
(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)
|