diff options
Diffstat (limited to 'lisp/net/tramp-cmds.el')
| -rw-r--r-- | lisp/net/tramp-cmds.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el index d30d22021a5..63eab1b31a1 100644 --- a/lisp/net/tramp-cmds.el +++ b/lisp/net/tramp-cmds.el @@ -131,6 +131,8 @@ When called interactively, a Tramp connection has to be selected." (buf (list (get-buffer (tramp-buffer-name vec)) (unless keep-debug (get-buffer (tramp-debug-buffer-name vec))) + (unless keep-debug + (get-buffer (tramp-trace-buffer-name vec))) (tramp-get-connection-property vec "process-buffer" nil))) (when (bufferp buf) (kill-buffer buf))) @@ -312,7 +314,7 @@ The remote connection identified by SOURCE is flushed by (if (null connections) (tramp-user-error nil "There are no remote connections.") (setq source - ;; Likely, the source remote connection is broken. So we + ;; Likely, the source remote connection is broken. So we ;; shall avoid any action on it. (let (non-essential) (completing-read-default @@ -672,7 +674,7 @@ buffer in your bug report. (insert "\nload-path shadows:\n==================\n") (ignore-errors (mapc - (lambda (x) (when (string-match-p "tramp" x) (insert x "\n"))) + (lambda (x) (when (tramp-compat-string-search "tramp" x) (insert x "\n"))) (split-string (list-load-path-shadows t) "\n"))) ;; Append buffers only when we are in message mode. @@ -717,7 +719,7 @@ the debug buffer(s).") (setq buffer-read-only t) (goto-char (point-min)) - (when (y-or-n-p "Do you want to append the buffer(s)? ") + (when (y-or-n-p "Do you want to append the buffer(s)?") ;; OK, let's send. First we delete the buffer list. (kill-buffer nil) (switch-to-buffer curbuf) |