From c40b72389e4a807cb1231eb9341fadbd1eca88c5 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 5 Apr 2020 18:29:10 +0200 Subject: [PATCH] Fix thinko in tramp-cache.el * lisp/net/tramp-cache.el (tramp-set-connection-property) (tramp-flush-connection-property) (tramp-flush-connection-properties): Use `tramp-file-name-p'. --- lisp/net/tramp-cache.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el index 93eeb16f547..09e30f000f4 100644 --- a/lisp/net/tramp-cache.el +++ b/lisp/net/tramp-cache.el @@ -339,7 +339,7 @@ Return VALUE." (when-let ((hash (tramp-get-hash-table key))) (puthash property value hash)) (setq tramp-cache-data-changed - (or tramp-cache-data-changed (tramp-tramp-file-p key))) + (or tramp-cache-data-changed (tramp-file-name-p key))) (tramp-message key 7 "%s %s" property value) value) @@ -368,7 +368,7 @@ PROPERTY is set persistent when KEY is a `tramp-file-name' structure." (when-let ((hash (tramp-get-hash-table key))) (remhash property hash)) (setq tramp-cache-data-changed - (or tramp-cache-data-changed (tramp-tramp-file-p key))) + (or tramp-cache-data-changed (tramp-file-name-p key))) (tramp-message key 7 "%s" property)) ;;;###tramp-autoload @@ -388,7 +388,7 @@ used to cache connection properties of the local machine." (when-let ((hash (gethash key tramp-cache-data))) (hash-table-keys hash))) (setq tramp-cache-data-changed - (or tramp-cache-data-changed (tramp-tramp-file-p key))) + (or tramp-cache-data-changed (tramp-file-name-p key))) (remhash key tramp-cache-data)) ;;;###tramp-autoload -- 2.39.5