* net/tramp.el (tramp-connectable-p): Make a stronger check on a

running process.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5db9b8a5241dea0d373fa234ccae783ad248e572..4081805a509070123cbaa91d56673107e3823c0e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-19  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp.el (tramp-connectable-p): Make a stronger check on a
+       running process.
+
 2011-10-19  Glenn Morris  <rgm@gnu.org>
 
        * vc/vc-bzr.el (vc-bzr-after-dir-status):

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index cc4fda32dffcb6531df53681d686ce03cb9dfc28..5fca1018095afb16a61d6d9d9934b45bb7dd06d9 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2103,8 +2103,9 @@ 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)
        (with-parsed-tramp-file-name filename nil
-        (or (get-buffer (tramp-buffer-name v))
-            (not (tramp-completion-mode-p))))))
+        (or (not (tramp-completion-mode-p))
+            (let ((p (tramp-get-connection-process v)))
+              (and p (processp p) (memq (process-status p) '(run open))))))))
 
 ;; Method, host name and user name completion.
 ;; `tramp-completion-dissect-file-name' returns a list of