master c40b723: Fix thinko in tramp-cache.el

[Michael Albinus]

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

    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 93eeb16..09e30f0 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