diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2011-10-19 22:21:35 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2011-10-19 22:21:35 +0200 |
| commit | 305c07f6ae3dbf10a6c069e2031fb4b0bca3d254 (patch) | |
| tree | 72c743f4da393eadfefefe925993e84843d66d1b /lisp/net/tramp.el | |
| parent | 13754b5435db15ac235e4637ca91c7447c151a5b (diff) | |
| download | emacs-305c07f6ae3dbf10a6c069e2031fb4b0bca3d254.tar.gz | |
* net/tramp.el (tramp-connectable-p): Make a stronger check on a
running process.
Diffstat (limited to 'lisp/net/tramp.el')
| -rw-r--r-- | lisp/net/tramp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index cc4fda32dff..5fca1018095 100644 --- 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 |