[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 7e1cfa2 7/7: * lisp/net/tramp-cache.el: Fix misuse of bound-and-t
From: |
Stefan Monnier |
Subject: |
master 7e1cfa2 7/7: * lisp/net/tramp-cache.el: Fix misuse of bound-and-true-p |
Date: |
Sun, 7 Mar 2021 19:07:36 -0500 (EST) |
branch: master
commit 7e1cfa29c3c3f4566c9f973fb1b0e6a28f3eaf59
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* 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 2b0a4d9..ad8310c 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)))
- master updated (c63d2ef -> 7e1cfa2), Stefan Monnier, 2021/03/07
- master c4f49d7 3/7: * lisp/skeleton.el (skeleton-read): Silence compiler warning, Stefan Monnier, 2021/03/07
- master 26bfd0c 2/7: * lisp/cedet/semantic/bovine.el: Fix recent regression, Stefan Monnier, 2021/03/07
- master 251dea6 1/7: * lisp/emacs-lisp/bytecomp.el: Warn about unprefixed vars in `boundp`, Stefan Monnier, 2021/03/07
- master 42751f4 4/7: * lisp/cedet/semantic/fw.el (semantic-find-file-noselect): Fix warning, Stefan Monnier, 2021/03/07
- master 490f830 6/7: * lisp/net/ange-ftp.el: Fix problem pointed out by compiler warning, Stefan Monnier, 2021/03/07
- master fb779e9 5/7: * lisp/erc/erc.el: Fix problem pointed out by compiler warning, Stefan Monnier, 2021/03/07
- master 7e1cfa2 7/7: * lisp/net/tramp-cache.el: Fix misuse of bound-and-true-p,
Stefan Monnier <=