diff options
| author | Glenn Morris <rgm@gnu.org> | 2017-07-20 13:46:52 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2017-07-20 13:46:52 -0400 |
| commit | ee5ec64624b72fb5c18945949437c6371c76d14c (patch) | |
| tree | 9a697c6564f1a17929d4f6e7a04399573bc1126d /lisp | |
| parent | 9c6cacd338c90180bc377cae923c716c1dc3d14c (diff) | |
| download | emacs-ee5ec64624b72fb5c18945949437c6371c76d14c.tar.gz emacs-ee5ec64624b72fb5c18945949437c6371c76d14c.tar.bz2 emacs-ee5ec64624b72fb5c18945949437c6371c76d14c.zip | |
Make tramp unloading handle debug counter variables
* lisp/net/tramp-cache.el (tramp-get-file-property)
(tramp-set-file-property): Add counter variables to tramp-unload-hook.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/tramp-cache.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el index ac5a9c45bbd..7227c9bf7cc 100644 --- a/lisp/net/tramp-cache.el +++ b/lisp/net/tramp-cache.el @@ -136,7 +136,11 @@ Returns DEFAULT if not set." (tramp-message key 8 "%s %s %s" file property value) (when (>= tramp-verbose 10) (let* ((var (intern (concat "tramp-cache-get-count-" property))) - (val (or (and (boundp var) (symbol-value var)) 0))) + (val (or (and (boundp var) (symbol-value var)) + (progn + (add-hook 'tramp-unload-hook + (lambda () (makunbound var))) + 0)))) (set var (1+ val)))) value)) @@ -156,7 +160,11 @@ Returns 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 (and (boundp var) (symbol-value var)) 0))) + (val (or (and (boundp var) (symbol-value var)) + (progn + (add-hook 'tramp-unload-hook + (lambda () (makunbound var))) + 0)))) (set var (1+ val)))) value)) |