From da641d4a07e0ef760fd2dafc57d1aad9a5d1ffc0 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 25 Sep 2024 11:36:28 +0200 Subject: [PATCH] ; Tramp cosmetic change * lisp/net/tramp.el (tramp-file-name-handler): Adapt `tramp-verbose' when completing host names. (cherry picked from commit 29c610a83243c82aeb1bfefea26adad0b34ff011) --- lisp/net/tramp.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 6d1cee041e6..80e3d63623a 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -2478,8 +2478,11 @@ Fall back to normal file name handler if no Tramp file name handler exists." ;; We flush connection properties ;; "process-name" and "process-buffer", ;; because the operations shall be applied - ;; in the main connection process. - ;; If `non-essential' is non-nil, Tramp shall + ;; in the main connection process. In order + ;; to avoid suspicious debug buffers during + ;; host name completion, we adapt + ;; `tramp-verbose'. + ;; If `non-essential' is non-nil, Tramp shall ;; not open a new connection. ;; If Tramp detects that it shouldn't continue ;; to work, it throws the `suppress' event. @@ -2489,8 +2492,11 @@ Fall back to normal file name handler if no Tramp file name handler exists." ;; In both cases, we try the default handler then. (with-tramp-saved-connection-properties v '("process-name" "process-buffer") - (tramp-flush-connection-property v "process-name") - (tramp-flush-connection-property v "process-buffer") + (let ((tramp-verbose + (if minibuffer-completing-file-name + 0 tramp-verbose))) + (tramp-flush-connection-property v "process-name") + (tramp-flush-connection-property v "process-buffer")) (setq result (catch 'non-essential (catch 'suppress -- 2.39.5