From b5554efb8b0e9e452810ece5a5e3f54e955553c7 Mon Sep 17 00:00:00 2001 From: shipmints Date: Mon, 27 Jan 2025 11:16:04 -0500 Subject: [PATCH] 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) --- lisp/bookmark.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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-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) -- 2.39.5