[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/09 08:31:27

Index: net/tramp-cache.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp-cache.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- net/tramp-cache.el  7 Aug 2007 20:30:20 -0000       1.4
+++ net/tramp-cache.el  9 Sep 2007 08:31:26 -0000       1.5
@@ -291,7 +291,8 @@
     res))
 
 ;; Read persistent connection history.
-(when (zerop (hash-table-count tramp-cache-data))
+(when (and (stringp tramp-persistency-file-name)
+          (zerop (hash-table-count tramp-cache-data)))
   (condition-case err
       (with-temp-buffer
        (insert-file-contents tramp-persistency-file-name)
@@ -306,7 +307,8 @@
      (clrhash tramp-cache-data))
     (error
      ;; File is corrupted.
-     (message "%s" (error-message-string err))
+     (message "Tramp persistency file '%s' is corrupted: %s"
+             tramp-persistency-file-name (error-message-string err))
      (clrhash tramp-cache-data))))
 
 (provide 'tramp-cache)