diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2007-11-06 21:17:36 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2007-11-06 21:17:36 +0000 |
| commit | 726f0272538ed95977d8686924b85ec81fa6e98f (patch) | |
| tree | 33ca04260dddac6773a0b8a13ee36c2c73493f59 /lisp/net/tramp-cmds.el | |
| parent | 77e8123225caaf9131a5e39395eb69ae2db02261 (diff) | |
| download | emacs-726f0272538ed95977d8686924b85ec81fa6e98f.tar.gz emacs-726f0272538ed95977d8686924b85ec81fa6e98f.tar.bz2 emacs-726f0272538ed95977d8686924b85ec81fa6e98f.zip | |
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
* net/tramp-cache (tramp-cache-print): Move down.
(tramp-cache-list-connections): New defun.
* net/tramp-cmds.el (tramp-cleanup-connection): Use it.
Diffstat (limited to 'lisp/net/tramp-cmds.el')
| -rw-r--r-- | lisp/net/tramp-cmds.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el index 85ce4a93aa6..415d45f922d 100644 --- a/lisp/net/tramp-cmds.el +++ b/lisp/net/tramp-cmds.el @@ -61,12 +61,12 @@ When called interactively, a Tramp connection has to be selected." (let ((connections (mapcar (lambda (x) - (with-current-buffer x (list (file-remote-p default-directory)))) - ;; We shall not count debug buffers, because their - ;; default-directory is random. It could be even a remote - ;; one from another connection. - (all-completions - "*tramp" (mapcar 'list (tramp-list-tramp-buffers))))) + (tramp-make-tramp-file-name + (tramp-file-name-method x) + (tramp-file-name-user x) + (tramp-file-name-host x) + (tramp-file-name-localname x))) + (tramp-cache-list-connections))) name) (when connections |