From 795fcde3b849efa02c8e9279d829efb34ddc70a1 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 22 Feb 2025 18:23:34 +0100 Subject: [PATCH] Use default mechanism to store URL bookmarks directly after creation Nicer :) --- init.el | 3 ++- site-lisp/db-utils.el | 3 +-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/init.el b/init.el index 3d27db9..8111157 100644 --- a/init.el +++ b/init.el @@ -2353,7 +2353,8 @@ eventuelly be set to nil, however)." (use-package bookmark :init (setq bookmark-default-file (expand-file-name "bookmarks" emacs-d-userdata) - bookmark-menu-confirm-deletion t)) + bookmark-menu-confirm-deletion t + bookmark-save-flag 1)) (use-package dumb-jump :commands (dumb-jump-xref-activate) diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index 127b5d0..6b83abb 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -847,8 +847,7 @@ it." (let ((new-record `((filename . ,location) (handler . ,handler)))) (bookmark-update-last-modified new-record) - (bookmark-store name new-record nil) - (bookmark-save))) + (bookmark-store name new-record nil))) (defun db/bookmark-browse-url (bmk) "Extract filename from bookmark BMK and apply `browse-url' to it."