procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/net/tramp-cache.el: Fix misuse of bound-and-true-p

Browse source 
(tramp-get-file-property, tramp-set-file-property): Check the var's
value rather than its name.
This commit is contained in:
Stefan Monnier 2021-03-07 19:07:27 -05:00
parent 490f8305e1
commit 7e1cfa29c3
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/net/tramp-cache.el
View file

@ -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)))