[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master b4bfdd3: Fix handling of `tramp-cache-{g,s}et-count-*'
From: |
Michael Albinus |
Subject: |
master b4bfdd3: Fix handling of `tramp-cache-{g,s}et-count-*' |
Date: |
Mon, 8 Mar 2021 09:44:47 -0500 (EST) |
branch: master
commit b4bfdd3999841dcdd779a48316b5cdb9b4f61209
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>
Fix handling of `tramp-cache-{g,s}et-count-*'
* lisp/net/tramp-cache.el (tramp-get-file-property)
(tramp-set-file-property): Fix handling of `tramp-cache-{g,s}et-count-*'.
---
lisp/net/tramp-cache.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index ad8310c..c79a3a0 100644
--- a/lisp/net/tramp-cache.el
+++ b/lisp/net/tramp-cache.el
@@ -164,7 +164,8 @@ Return DEFAULT if not set."
file property value remote-file-name-inhibit-cache cache-used cached-at)
(when (>= tramp-verbose 10)
(let* ((var (intern (concat "tramp-cache-get-count-" property)))
- (val (or (numberp (and (boundp var) (symbol-value var)))
+ (val (or (and (boundp var) (numberp (symbol-value var))
+ (symbol-value var))
(progn
(add-hook 'tramp-cache-unload-hook
(lambda () (makunbound var)))
@@ -188,7 +189,8 @@ Return VALUE."
(tramp-message key 8 "%s %s %s" file property value)
(when (>= tramp-verbose 10)
(let* ((var (intern (concat "tramp-cache-set-count-" property)))
- (val (or (numberp (and (boundp var) (symbol-value var)))
+ (val (or (and (boundp var) (numberp (symbol-value var))
+ (symbol-value var))
(progn
(add-hook 'tramp-cache-unload-hook
(lambda () (makunbound var)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master b4bfdd3: Fix handling of `tramp-cache-{g,s}et-count-*',
Michael Albinus <=