From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 5 Apr 2020 16:29:10 +0000 (+0200)
Subject: Fix thinko in tramp-cache.el
X-Git-Tag: emacs-28.0.90~7641
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c40b72389e4a807cb1231eb9341fadbd1eca88c5;p=emacs.git

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'.
---

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