From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 8 Mar 2021 14:44:38 +0000 (+0100)
Subject: Fix handling of `tramp-cache-{g,s}et-count-*'
X-Git-Tag: emacs-28.0.90~3363
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b4bfdd3999841dcdd779a48316b5cdb9b4f61209;p=emacs.git

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

diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index ad8310c5ea5..c79a3a02a3d 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)))