From: shipmints <shipmints@gmail.com>
Date: Mon, 27 Jan 2025 16:16:04 +0000 (-0500)
Subject: Add new user option bookmark-bmenu-type-column-width
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b5554efb8b0e9e452810ece5a5e3f54e955553c7;p=emacs.git

Add new user option bookmark-bmenu-type-column-width

* lisp/bookmark.el (bookmark-bmenu-mode):
Add new user option bookmark-bmenu-type-column-width, defaulting to 8
for backwards compatibility, and use it when creating the tabulated
bookmark list.  (Bug#75826)

(cherry picked from commit 004600e0142fb6f9c7ab492f855ee9668bb0421e)
---

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index ce3487f4da7..197523256ad 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -165,6 +165,10 @@ This includes the annotations column.")
 You can toggle whether files are shown with \\<bookmark-bmenu-mode-map>\\[bookmark-bmenu-toggle-filenames]."
   :type 'natnum)
 
+(defcustom bookmark-bmenu-type-column-width 8
+  "Column width for bookmark type in a buffer listing bookmarks."
+  :type 'natnum
+  :version "31.1")
 
 (defcustom bookmark-bmenu-toggle-filenames t
   "Non-nil means show filenames when listing bookmarks.
@@ -2049,7 +2053,7 @@ At any time you may use \\[revert-buffer] to go back to sorting by creation orde
         `[("" 1) ;; Space to add "*" for bookmark with annotation
           ("Bookmark Name"
            ,bookmark-bmenu-file-column bookmark-bmenu--name-predicate)
-          ("Type" 8 bookmark-bmenu--type-predicate)
+          ("Type" ,bookmark-bmenu-type-column-width bookmark-bmenu--type-predicate)
           ,@(if bookmark-bmenu-toggle-filenames
                 '(("File" 0 bookmark-bmenu--file-predicate)))])
   (setq tabulated-list-padding bookmark-bmenu-marks-width)