[Emacs-diffs] Changes to emacs/lisp/net/tramp-cmds.el,v

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       07/11/06 21:17:37

Index: net/tramp-cmds.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp-cmds.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- net/tramp-cmds.el   27 Oct 2007 13:57:42 -0000      1.3
+++ net/tramp-cmds.el   6 Nov 2007 21:17:36 -0000       1.4
@@ -61,12 +61,12 @@
     (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