[Emacs-diffs] master 9c2ce57: Fix stale cache problem in Tramp

[Michael Albinus]

branch: master
commit 9c2ce57719d0db8ac0a01b65d7e8d7ccc3f2d6ca
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Fix stale cache problem in Tramp
    
    * lisp/net/tramp-cache.el (tramp-get-connection-property):
    Check, that a process as key is still running.  (Bug#22478)
---
 lisp/net/tramp-cache.el |   11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index 07176be..76b49a0 100644
--- a/lisp/net/tramp-cache.el
+++ b/lisp/net/tramp-cache.el
@@ -237,9 +237,14 @@ connection, returns DEFAULT."
     (aset key 3 nil)
     (aset key 4 nil))
   (let* ((hash (tramp-get-hash-table key))
-        (value (if (hash-table-p hash)
-                   (gethash property hash default)
-                 default)))
+        (value
+         ;; If the key is an auxiliary process object, check whether
+         ;; the process is still alive.
+         (if (and (processp key) (not (memq (process-status key) '(run open))))
+             default
+           (if (hash-table-p hash)
+               (gethash property hash default)
+             default))))
     (tramp-message key 7 "%s %s" property value)
     value))