[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/tramp-cache.el,v
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/tramp-cache.el,v |
Date: |
Fri, 28 Sep 2007 16:05:50 +0000 |
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)))