summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2025-01-10 21:24:00 +0000
committerjao <jao@gnu.org>2025-01-10 21:24:00 +0000
commit8ed594f003780bcbdd9b7852cb5231d6f116ec6a (patch)
treed42c2d66e1eb46f94d68a6b3de18f8eb01d819ba
parenta0f382a9d1ea66acc15bdd25a894070e8358027f (diff)
downloadelibs-8ed594f003780bcbdd9b7852cb5231d6f116ec6a.tar.gz
elibs-8ed594f003780bcbdd9b7852cb5231d6f116ec6a.tar.bz2
dirmon: really report deltas
-rw-r--r--lib/eos/jao-dirmon.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/eos/jao-dirmon.el b/lib/eos/jao-dirmon.el
index 960c54e..117da85 100644
--- a/lib/eos/jao-dirmon.el
+++ b/lib/eos/jao-dirmon.el
@@ -71,7 +71,7 @@
(dolist (c current)
(let ((d (- (cdr c) (alist-get (car c) old 0 nil #'string=))))
(when (> (abs d) jao-dirmon-threshold)
- (push d high))))
+ (push (cons (car c) d) high))))
(setq jao-dirmon-last-delta high)
(jao-dirmon--show-deltas old current jao-dirmon-last-delta)
jao-dirmon-last-delta))