Update bookmark

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))