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

[Michael Albinus]

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

Index: net/tramp-cache.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp-cache.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- net/tramp-cache.el  30 Oct 2007 20:27:22 -0000      1.7
+++ net/tramp-cache.el  6 Nov 2007 21:17:36 -0000       1.8
@@ -138,26 +138,6 @@
          (remhash key tramp-cache-data)))
      tramp-cache-data)))
 
-(defun tramp-cache-print (table)
-  "Prints hash table TABLE."
-  (when (hash-table-p table)
-    (let (result)
-      (maphash
-       '(lambda (key value)
-         (let ((tmp (format
-                     "(%s %s)"
-                     (if (processp key)
-                         (prin1-to-string (prin1-to-string key))
-                       (prin1-to-string key))
-                     (if (hash-table-p value)
-                         (tramp-cache-print value)
-                       (if (bufferp value)
-                           (prin1-to-string (prin1-to-string value))
-                         (prin1-to-string value))))))
-           (setq result (if result (concat result " " tmp) tmp))))
-       table)
-      result)))
-
 ;; Reverting or killing a buffer should also flush file properties.
 ;; They could have been changed outside Tramp.  In eshell, "ls" would
 ;; not show proper directory contents when a file has been copied or
@@ -236,6 +216,36 @@
 ;  (tramp-message key 7 "%s" event)
   (remhash key tramp-cache-data))
 
+(defun tramp-cache-print (table)
+  "Prints hash table TABLE."
+  (when (hash-table-p table)
+    (let (result)
+      (maphash
+       '(lambda (key value)
+         (let ((tmp (format
+                     "(%s %s)"
+                     (if (processp key)
+                         (prin1-to-string (prin1-to-string key))
+                       (prin1-to-string key))
+                     (if (hash-table-p value)
+                         (tramp-cache-print value)
+                       (if (bufferp value)
+                           (prin1-to-string (prin1-to-string value))
+                         (prin1-to-string value))))))
+           (setq result (if result (concat result " " tmp) tmp))))
+       table)
+      result)))
+
+(defun tramp-cache-list-connections ()
+  "Return a list of all known connection vectors."
+    (let (result)
+      (maphash
+       '(lambda (key value)
+         (when (and (vectorp key) (null (aref key 3)))
+           (add-to-list 'result key)))
+       tramp-cache-data)
+      result))
+
 (defun tramp-dump-connection-properties ()
 "Writes persistent connection properties into file
 `tramp-persistency-file-name'."