aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/net/tramp-cache.el10
1 files 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."
240 (aset key 3 nil)) 240 (aset key 3 nil))
241 (tramp-message 241 (tramp-message
242 key 7 "%s %s" key 242 key 7 "%s %s" key
243 (let (properties) 243 (let ((hash (gethash key tramp-cache-data))
244 (maphash 244 properties)
245 (lambda (x y) (add-to-list 'properties x 'append)) 245 (if (hash-table-p hash)
246 (gethash key tramp-cache-data)) 246 (maphash
247 (lambda (x y) (add-to-list 'properties x 'append))
248 (gethash key tramp-cache-data)))
247 properties)) 249 properties))
248 (setq tramp-cache-data-changed t) 250 (setq tramp-cache-data-changed t)
249 (remhash key tramp-cache-data)) 251 (remhash key tramp-cache-data))