From 7e1cfa29c3c3f4566c9f973fb1b0e6a28f3eaf59 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 7 Mar 2021 19:07:27 -0500 Subject: [PATCH] * lisp/net/tramp-cache.el: Fix misuse of bound-and-true-p (tramp-get-file-property, tramp-set-file-property): Check the var's value rather than its name. --- lisp/net/tramp-cache.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el index 2b0a4d9cd05..ad8310c5ea5 100644 --- a/lisp/net/tramp-cache.el +++ b/lisp/net/tramp-cache.el @@ -164,7 +164,7 @@ 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 (bound-and-true-p var)) + (val (or (numberp (and (boundp var) (symbol-value var))) (progn (add-hook 'tramp-cache-unload-hook (lambda () (makunbound var))) @@ -188,7 +188,7 @@ 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 (bound-and-true-p var)) + (val (or (numberp (and (boundp var) (symbol-value var))) (progn (add-hook 'tramp-cache-unload-hook (lambda () (makunbound var))) -- 2.39.2