aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2020-04-05 18:29:10 +0200
committerMichael Albinus2020-04-05 18:29:10 +0200
commitc40b72389e4a807cb1231eb9341fadbd1eca88c5 (patch)
tree5166f203768dfb93b122b6a8fa2a9c03bd2b1977
parent333f63d53706de9d1a1dbc04ed62f9dc0e9698db (diff)
downloademacs-c40b72389e4a807cb1231eb9341fadbd1eca88c5.tar.gz
emacs-c40b72389e4a807cb1231eb9341fadbd1eca88c5.zip
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'.
-rw-r--r--lisp/net/tramp-cache.el6
1 files 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."
339 (when-let ((hash (tramp-get-hash-table key))) 339 (when-let ((hash (tramp-get-hash-table key)))
340 (puthash property value hash)) 340 (puthash property value hash))
341 (setq tramp-cache-data-changed 341 (setq tramp-cache-data-changed
342 (or tramp-cache-data-changed (tramp-tramp-file-p key))) 342 (or tramp-cache-data-changed (tramp-file-name-p key)))
343 (tramp-message key 7 "%s %s" property value) 343 (tramp-message key 7 "%s %s" property value)
344 value) 344 value)
345 345
@@ -368,7 +368,7 @@ PROPERTY is set persistent when KEY is a `tramp-file-name' structure."
368 (when-let ((hash (tramp-get-hash-table key))) 368 (when-let ((hash (tramp-get-hash-table key)))
369 (remhash property hash)) 369 (remhash property hash))
370 (setq tramp-cache-data-changed 370 (setq tramp-cache-data-changed
371 (or tramp-cache-data-changed (tramp-tramp-file-p key))) 371 (or tramp-cache-data-changed (tramp-file-name-p key)))
372 (tramp-message key 7 "%s" property)) 372 (tramp-message key 7 "%s" property))
373 373
374;;;###tramp-autoload 374;;;###tramp-autoload
@@ -388,7 +388,7 @@ used to cache connection properties of the local machine."
388 (when-let ((hash (gethash key tramp-cache-data))) 388 (when-let ((hash (gethash key tramp-cache-data)))
389 (hash-table-keys hash))) 389 (hash-table-keys hash)))
390 (setq tramp-cache-data-changed 390 (setq tramp-cache-data-changed
391 (or tramp-cache-data-changed (tramp-tramp-file-p key))) 391 (or tramp-cache-data-changed (tramp-file-name-p key)))
392 (remhash key tramp-cache-data)) 392 (remhash key tramp-cache-data))
393 393
394;;;###tramp-autoload 394;;;###tramp-autoload