From: Michael Albinus <michael.albinus@gmx.de>
Date: Sat, 17 Sep 2016 08:01:31 +0000 (+0200)
Subject: Minor Tramp tweaks
X-Git-Tag: emacs-26.0.90~1586
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aab079d1d2d391bd1d6892a6bed0bc98eebce02d;p=emacs.git

Minor Tramp tweaks

* lisp/net/tramp.el (tramp-get-buffer): Reuse connection
property "process-buffer" if already existing.
(tramp-connectable-p): Suppress debug messages.
---

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 0dade732c46..2a8a5ef15fa 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1314,7 +1314,11 @@ necessary only.  This function will be used in file name completion."
   "Get the connection buffer to be used for VEC."
   (or (get-buffer (tramp-buffer-name vec))
       (with-current-buffer (get-buffer-create (tramp-buffer-name vec))
-	(tramp-set-connection-property vec "process-buffer" nil)
+	;; We use existence of connection property "process-buffer" as
+	;; indication, whether a connection is active.
+	(tramp-set-connection-property
+	 vec "process-buffer"
+	 (tramp-get-connection-property vec "process-buffer" nil))
 	(setq buffer-undo-list t)
 	(setq default-directory
 	      (tramp-make-tramp-file-name
@@ -2284,11 +2288,12 @@ should never be set globally, the intention is to let-bind it.")
   "Check, whether it is possible to connect the remote host w/o side-effects.
 This is true, if either the remote host is already connected, or if we are
 not in completion mode."
-  (and (tramp-tramp-file-p filename)
-       (or (not (tramp-completion-mode-p))
-	   (tramp-compat-process-live-p
-	    (tramp-get-connection-process
-	     (tramp-dissect-file-name filename))))))
+  (let (tramp-verbose)
+    (and (tramp-tramp-file-p filename)
+	 (or (not (tramp-completion-mode-p))
+	     (tramp-compat-process-live-p
+	      (tramp-get-connection-process
+	       (tramp-dissect-file-name filename)))))))
 
 (defun tramp-completion-handle-expand-file-name (name &optional dir)
   "Like `expand-file-name' for Tramp files."