[elpa] externals/triples f8f7fa5a5f 5/7: Set the last-update-time when making a backup

[ELPA Syncer]

branch: externals/triples
commit f8f7fa5a5f6634748058a20834379558ed984115
Author: Andrew Hyatt <ahyatt@gmail.com>
Commit: Andrew Hyatt <ahyatt@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."