Mercurial > emacs

changeset 105550:42674c5ffbe7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/tramp-cache.el (tramp-flush-connection-property): The hash can be empty.
author Michael Albinus <michael.albinus@gmx.de>
date Sun, 11 Oct 2009 14:00:30 +0000
parents e7c777c6e230
children 2025d7d04cb9
files lisp/net/tramp-cache.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/tramp-cache.el	Sun Oct 11 13:59:28 2009 +0000
+++ b/lisp/net/tramp-cache.el	Sun Oct 11 14:00:30 2009 +0000
@@ -240,10 +240,12 @@
     (aset key 3 nil))
   (tramp-message
    key 7 "%s %s" key
-   (let (properties)
-     (maphash
-      (lambda (x y) (add-to-list 'properties x 'append))
-      (gethash key tramp-cache-data))
+   (let ((hash (gethash key tramp-cache-data))
+	 properties)
+     (if (hash-table-p hash)
+	 (maphash
+	  (lambda (x y) (add-to-list 'properties x 'append))
+	  (gethash key tramp-cache-data)))
      properties))
   (setq tramp-cache-data-changed t)
   (remhash key tramp-cache-data))