ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/tramp-cmds.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 427)])
#@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) "rq\210\302 !\205 )\207" [x default-directory tramp-tramp-file-p] 2] buffer-list] 5 (#$ . 705)])
#@274 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.
(defalias 'tramp-cleanup-connection #[(vec &optional keep-debug keep-password) "\204 \306\307!\207 \204 \310!\210 \203 \311\312\313\"\210\314\315!!\203/ \316\315!!\210\317\315!!\210\317!\210\320\321!! ?\205B \320\322!!\323\324\311#E\311 \211 \205d
@\325\f!\203\\ \326\f!\210
A\211\204O \311*\207" [vec keep-password tramp-current-connection keep-debug buf --dolist-tail-- message "No Tramp connection found." tramp-clear-passwd nil 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" bufferp kill-buffer] 7 (#$ . 970) (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))) (and (tramp-tramp-file-p name) (tramp-dissect-file-name name))))) nil nil)])
#@74 Flush all connection related objects of the current buffer's connection.
(defalias 'tramp-cleanup-this-connection #[nil "\301!\205\f \302\303\304\"!\207" [default-directory tramp-tramp-file-p tramp-cleanup-connection tramp-dissect-file-name noexpand] 4 (#$ . 2375) 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 (#$ . 2655) 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 (#$ . 3115) 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 (#$ . 3409) "P"])
(autoload 'reporter-submit-bug-report "reporter")
#@46 Submit a bug report to the Tramp developers.
(defalias 'tramp-bug #[nil "\304\305!\210\3062Y \307\310 \311\312\n\"\313\314\315\316\317\320\316\321\322\323 \324#\"\325\"\"\"\326\"\327\330\331\332\333!\2031 \333\2022 \334!\204F \332\211\333!\203A \333\202B \334!\205U \332\333!\203P \333\202Q \334\335\336\337#&)0\207" [reporter-prompt-for-summary-p tramp-bug-report-address tramp-version obarray require reporter dont-send 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 subrp functionp propertize progn "\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 (#$ . 3638) nil])
#@58 Pretty-print the value of the variable in symbol VARSYM.
(defalias 'tramp-reporter-dump-variable #[(varsym mailbuf) "\300Jrq\210 J)\304\n!\203 \305\306\307\310\n!\"!L\210\202F \311\312!\203F \n;\203F \313\314\312J\315Q\n\"\203F rq\210 \306\316\317\320\n\321\"!\"L\210)\322\323!\204R \324\323!\203W \323 \"\210\304\n!\204s \325y\210\326\327!\203p \330\331!\210\332 \210\333c\210\334y\210rq\210 \nL+\207" [reporter-eval-buffer varsym val mailbuf hash-table-p read format "(%s)" tramp-cache-print boundp mm-7bit-chars string-match "[^" "]" "(decode-coding-string (base64-decode-string \"%s\") 'raw-text)" base64-encode-string encode-coding-string raw-text 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] 7 (#$ . 5456)])
#@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 (#$ . 6372)])
#@70 Append Tramp buffers and buffer local variables into the bug report.
(defalias 'tramp-append-tramp-buffers #[nil "db\210\306c\210\307\310\311\312\313 \"\"\310\211\203x @\211\314\315!r\nq\210\316 \210\317 \210\320\321\322!\"c\210\323 \210\324\325\311\326\327\330\331!\"\"\332\"\333\"\310 \211\203d @\334\335!\204X \336\335!\203] \335\f\n\"\210 A\211\204I *\323 \210\337c\210)\340\n!\210* A\211\204 *\341c\210\3421\231 \343\344\345\334\346!\204\217 \336\346!\205\222 \346\347!\350\"\"0\202\235 \210\202\236 \210
\351=\205\272\352\353!\205\272\353J\205\272\354\334\355!\204\274 \336\355!\205\276 \355 p @ A \205\271\356\357\310!!\210\360 \210\310Beb\210m\204 \361A\362 \347#\203\355 \363y\210\202\331 \364y\210` C\363y\210\365C`\"\210)\202\331 \366c\210D\367Y\203 \370c\210` C\371c\210\372C`\373\374D#\210)\375\310!\210\347Beb\210\376\377!\203\243\201E \310!\210\356@!\210db\210\334\201F !\204K\336\201F !\205V\201F \350\201G \201H #c\210 \310\211\203\234 @\334\201I !\204t\336\201I !\203\225\201I \201J \201K \201L \201M \201N \201O \201P \300\201Q & \210 A\211\204a*\375\310!\202\271@q\210\375\310!\210\201E \310!\210\201R \201S \310\"+\207" [buffer --dolist-tail-- elbuf reporter-eval-buffer varsym major-mode "\nlocal variables:\n================" 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 format "\n;; %s\n(setq-local\n" buffer-name lisp-indent-line sort append intern all-completions "tramp-" buffer-local-variables (default-directory) string< subrp reporter-dump-variable functionp ")\n" insert-buffer-substring "\nload-path shadows:\n==================\n" (error) mapc #[(x) "\301\302\"\205 \303\261\207" [x string-match "tramp" "\n"] 3] split-string list-load-path-shadows t "\n" 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 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)? " curbuf tramp-buf-regexp buffer-read-only start tramp-verbose 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" description throw dont-send] 13 (#$ . 6673)])
(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)
Kontol Shell Bypass