diff options
| -rw-r--r-- | lib/eos/jao-dirmon.el | 6 |
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) |