diff options
| author | jao <jao@gnu.org> | 2022-06-10 03:58:32 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-06-10 03:58:32 +0100 |
| commit | 623fc7a3a53b97e2073ae7669af7954c3d51b69c (patch) | |
| tree | 310637136b9b92e95c0211306addb9d6a47aa059 /lib | |
| parent | dee619824a9d5286be5b6c27b3fa16cf4142385f (diff) | |
| download | elibs-623fc7a3a53b97e2073ae7669af7954c3d51b69c.tar.gz elibs-623fc7a3a53b97e2073ae7669af7954c3d51b69c.tar.bz2 | |
jao-dirmon: remember date
Diffstat (limited to 'lib')
| -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) |