diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-07 19:07:27 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-07 19:07:27 -0500 |
| commit | 7e1cfa29c3c3f4566c9f973fb1b0e6a28f3eaf59 (patch) | |
| tree | e755e02c31d4a338a83a23f35732e05f4dabc4a1 /lisp/net/tramp-cache.el | |
| parent | 490f8305e1901719dcd0e0d3561e37d66fddff18 (diff) | |
| download | emacs-7e1cfa29c3c3f4566c9f973fb1b0e6a28f3eaf59.tar.gz emacs-7e1cfa29c3c3f4566c9f973fb1b0e6a28f3eaf59.tar.bz2 emacs-7e1cfa29c3c3f4566c9f973fb1b0e6a28f3eaf59.zip | |
* 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.
Diffstat (limited to 'lisp/net/tramp-cache.el')
| -rw-r--r-- | lisp/net/tramp-cache.el | 4 |
1 files 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))) |