[Emacs-diffs] /srv/bzr/emacs/trunk r106137: * net/tramp.el (tramp-connectable-p): Make a stronger check on a

[Michael Albinus]

------------------------------------------------------------
revno: 106137
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Wed 2011-10-19 22:21:35 +0200
message:
  * net/tramp.el (tramp-connectable-p): Make a stronger check on a
  running process.
modified:
  lisp/ChangeLog
  lisp/net/tramp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-10-19 16:42:20 +0000
+++ b/lisp/ChangeLog    2011-10-19 20:21:35 +0000
@@ -1,3 +1,8 @@
+2011-10-19  Michael Albinus  <address@hidden>
+
+       * net/tramp.el (tramp-connectable-p): Make a stronger check on a
+       running process.
+
 2011-10-19  Glenn Morris  <address@hidden>
 
        * vc/vc-bzr.el (vc-bzr-after-dir-status):

=== modified file 'lisp/net/tramp.el'
--- a/lisp/net/tramp.el 2011-10-18 09:58:06 +0000
+++ b/lisp/net/tramp.el 2011-10-19 20:21:35 +0000
@@ -2103,8 +2103,9 @@
 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