mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-03 08:30:09 +00:00
* net/tramp.el (tramp-connectable-p): Make a stronger check on a
running process.
This commit is contained in:
parent
13754b5435
commit
305c07f6ae
@ -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):
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user