From f7571e59708819bfa53b6dfedcf27a5303e1f1fb Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Tue, 31 Oct 2023 14:17:55 +0900
Subject: [PATCH] Update bookmark

---
 emacs.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/emacs.el b/emacs.el
index 2682401..574c6a2 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1367,6 +1367,8 @@ THEM are function and its args."
 
 
 ;; bookmarks
+;; C-x B: Add bookmark
+;; C-x b: List bookmarks
 
 (set-variable 'bookmark-default-file
               (expand-file-name (concat user-emacs-directory
@@ -1404,12 +1406,14 @@ THEM are function and its args."
 ORIG-FUNC is the target function, and ARGS is the argument when it is called."
   (bookmark-load bookmark-default-file)
   (apply orig-func args)
-  (bookmark-save))
+  (bookmark-save nil bookmark-default-file))
 
 (with-eval-after-load 'bookmark
   (advice-add 'bookmark-set-internal
               :around
-              'my-bookmark-set--advice))
+              'my-bookmark-set--advice)
+  (unless (file-readable-p bookmark-default-file)
+    (bookmark-save nil bookmark-default-file)))
 (define-key ctl-x-map "b" 'list-bookmarks)
 (when (fboundp 'counsel-bookmark)
   (define-key ctl-x-map "b" 'counsel-bookmark))