New bookmark-after-load-file-hook (bug#80003)

* lisp/bookmark.el (bookmark-after-load-file-hook): New
defcustom (bug#80003).
(bookmark-load): Call the new hook.
* etc/NEWS: Announce the new hook.

2 files changed, 14 insertions, 0 deletions

diff --git a/etc/NEWS b/etc/NEWS
index f74c17e4f36..fb69ffc49c2 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1533,6 +1533,12 @@ This user option controls the width of the type column on the bookmark
 menu 'bookmark-bmenu-list'.  The default value is 8 which is backwards
 compatible.
 
+---
+*** New hook 'bookmark-after-load-file-hook'.
+This hook is run by 'bookmark-load' after loading a bookmark file.  This
+hook can be used, for example, to reconcile 'bookmark-alist' against
+bookmark state that you, or a package that you use, maintains.
+
 ** Recentf
 
 ---
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 75071ddb9ce..f2a1c69929b 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1763,6 +1763,13 @@ This is a helper for `bookmark-import-new-list'."
           (bookmark-set-name full-record new-name)))))
 
 
+(defcustom bookmark-after-load-file-hook nil
+  "Hook run after a bookmark file is loaded by `bookmark-load`.
+This hook can be used, for example, to reconcile 'bookmark-alist'
+against bookmark state that you, or a package that you use, maintains."
+  :type 'hook
+  :version "31.1")
+
 ;;;###autoload
 (defun bookmark-load (file &optional overwrite no-msg default)
   "Load bookmarks from FILE (which must be in bookmark format).
@@ -1824,6 +1831,7 @@ unique numeric suffixes \"<2>\", \"<3>\", etc."
           (bookmark-bmenu-surreptitiously-rebuild-list)
           (setq bookmark-file-coding-system buffer-file-coding-system))
         (kill-buffer (current-buffer)))
+      (run-hooks 'bookmark-after-load-file-hook)
       (unless no-msg
         (progress-reporter-done reporter)))))