[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/09/28 16:05:49

Index: net/tramp-cache.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp-cache.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- net/tramp-cache.el  9 Sep 2007 08:31:26 -0000       1.5
+++ net/tramp-cache.el  28 Sep 2007 16:05:49 -0000      1.6
@@ -141,10 +141,10 @@
 (defun tramp-cache-print (table)
   "Prints hash table TABLE."
   (when (hash-table-p table)
-    (let (result tmp)
+    (let (result)
       (maphash
        '(lambda (key value)
-         (setq tmp (format
+         (let ((tmp (format
                     "(%s %s)"
                     (if (processp key)
                         (prin1-to-string (prin1-to-string key))
@@ -153,8 +153,8 @@
                         (tramp-cache-print value)
                       (if (bufferp value)
                           (prin1-to-string (prin1-to-string value))
-                        (prin1-to-string value))))
-               result (if result (concat result " " tmp) tmp)))
+                         (prin1-to-string value))))))
+           (setq result (if result (concat result " " tmp) tmp))))
        table)
       result)))