lisp/bookmark.el: Customize choice to show bookmark list in a new tab

* lisp/bookmark.el (bookmark-bmenu-get-buffer): Add as a choice
for new-tab targets (bug#41225).

diff --git a/etc/NEWS b/etc/NEWS
index 2b3cc80df152164a68058b4770166c9546927c84..01245d14f9018e7849a5cc8e309ce7adac2dc399 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -138,6 +138,10 @@ The width now depends of the width of the window, but will never be
 wider than the length of the longest buffer name, except that it will
 never be narrower than 19 characters.
 
+*** Bookmarks can now be targets for new tabs.
+When the 'bookmark.el' library is loaded, a customize choice is added
+to 'tab-bar-new-tab-choice' for new tabs to show the bookmark list.
+
 ** Windows
 
 *** The key prefix 'C-x 4 1' displays next command buffer in the same window.

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index de7d60f97ebd5c8730c8273a2b9df4752eb1ed79..fb293adb779d0c432b7ce17fd3642ff9653bc42a 100644 (file)
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1666,6 +1666,19 @@ Don't affect the buffer ring order."
           (bookmark-bmenu-list)))))
 
 
+;;;###autoload
+(defun bookmark-bmenu-get-buffer ()
+  "Return the Bookmark List, building it if it doesn't exists.
+Don't affect the buffer ring order."
+  (or (get-buffer bookmark-bmenu-buffer)
+      (save-excursion
+       (save-window-excursion
+         (bookmark-bmenu-list)
+         (get-buffer bookmark-bmenu-buffer)))))
+
+(custom-add-choice 'tab-bar-new-tab-choice
+                   '(const :tag "Bookmark List" bookmark-bmenu-get-buffer))
+
 ;;;###autoload
 (defun bookmark-bmenu-list ()
   "Display a list of existing bookmarks.