summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--lib/eos/jao-dirmon.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/eos/jao-dirmon.el b/lib/eos/jao-dirmon.el
index 894d740..648d207 100644
--- a/lib/eos/jao-dirmon.el
+++ b/lib/eos/jao-dirmon.el
@@ -52,9 +52,11 @@
(when (> d jao-dirmon-threshold)
(push c high))))
(setq jao-dirmon-last-delta high)
- (let ((prompt (format "High deltas: %s. Save state?" high)))
+ (let ((prompt (format "High deltas since %s: %s. Save state?"
+ (c-a-r old) high)))
(when (y-or-n-p prompt)
- (setf (multisession-value jao-dirmon-last) current)))
+ (setf (multisession-value jao-dirmon-last)
+ (cons (current-time-string) current))))
jao-dirmon-last-delta))
(provide 'jao-dirmon)