From 674a9263fd261f9202c2b602fd0def8ca0165b42 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 11 Oct 2009 14:00:30 +0000 Subject: [PATCH] * net/tramp-cache.el (tramp-flush-connection-property): The hash can be empty. --- lisp/net/tramp-cache.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el index 1bb29d1766f..77aad29faa5 100644 --- a/lisp/net/tramp-cache.el +++ b/lisp/net/tramp-cache.el @@ -240,10 +240,12 @@ KEY identifies the connection, it is either a process or a vector." (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)) -- 2.39.5