From ed0286dc95a5074ef7af88854d09d5f1575ea5a3 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Mon, 27 Nov 2023 18:02:14 +0100 Subject: [PATCH] Include last modification time when adding custom-type bookmarks --- site-lisp/db-utils.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index 782842f..ececc35 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -770,10 +770,10 @@ number of bytes has been inserted." HANDLER is a function receiving a single argument, namely LOCATION. If a bookmark named NAME is already present, replace it." - (bookmark-store name - `((filename . ,location) - (handler . ,handler)) - nil)) + (let ((new-record `((filename . ,location) + (handler . ,handler)))) + (bookmark-update-last-modified new-record) + (bookmark-store name new-record nil))) (defun db/bookmark-browse-url (bmk) "Extract filename from bookmark BMK and apply `browse-url' to it."