1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00

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)
This commit is contained in:
Michael Albinus 2016-08-15 12:29:20 +02:00
parent 9c2ea5cdd6
commit 9c2ce57719

View file

@ -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))