branch: externals/triples
commit f8f7fa5a5f6634748058a20834379558ed984115
Author: Andrew Hyatt <ahy...@gmail.com>
Commit: Andrew Hyatt <ahy...@gmail.com>
Set the last-update-time when making a backup
If this isn't done, backups will start to happen every time we check, which
is
incorrect.
---
triples-backups.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/triples-backups.el b/triples-backups.el
index b60a2af3dc..631f87b5d1 100644
--- a/triples-backups.el
+++ b/triples-backups.el
@@ -64,7 +64,8 @@ FILENAME is also necessary for the backup operation."
:error))
(when (funcall (or (symbol-function strategy-func)
triples-backups-strategy-daily)
(time-convert (plist-get backup-info :last-update-time) t))
- (triples-backup db filename (plist-get backup-info :num-to-keep)))))
+ (triples-backup db filename (plist-get backup-info :num-to-keep))
+ (apply #'triples-set-type db 'database 'backup (plist-put backup-info
:last-update-time (time-convert (current-time) 'integer))))))
(defun triples-backups-strategy-every-change (_)
"Backup strategy to do a backup on each change."
