diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2009-10-11 14:00:30 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2009-10-11 14:00:30 +0000 |
| commit | 674a9263fd261f9202c2b602fd0def8ca0165b42 (patch) | |
| tree | 4fb13ac9f729a6cc559e9b342f8b449f5e3a835d | |
| parent | 46bcd78cc0470c3ff5447573a87b804ec46078a2 (diff) | |
| download | emacs-674a9263fd261f9202c2b602fd0def8ca0165b42.tar.gz | |
* net/tramp-cache.el (tramp-flush-connection-property): The hash
can be empty.
| -rw-r--r-- | lisp/net/tramp-cache.el | 10 |
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." (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)) |