bug#45227: 28.0.50; [PATCH] New option tab-bar-history-buttons-show

bug#45227: 28.0.50; [PATCH] New option tab-bar-history-buttons-show

[Gabriel do Nascimento Ribeiro]

[-- Attachment #1: Type: text/plain, Size: 173 bytes --]

New option tab-bar-history-buttons-show to control visibility of
tab-bar-history back and forward buttons, similar to
tab-bar-new-button-show and tab-bar-close-button-show.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Patch file --]
[-- Type: text/x-diff, Size: 1620 bytes --]

From 9d839755c5f7a27e1169a987e589b3945903a9c4 Mon Sep 17 00:00:00 2001
From: Gabriel do Nascimento Ribeiro <gabriel.nascimento@nubank.com.br>
Date: Sun, 13 Dec 2020 15:35:46 -0300
Subject: [PATCH] New option tab-bar-history-buttons-show

    * lisp/tab-bar.el (tab-bar-history-buttons-show): If true,
    show back and forward buttons when tab-bar-history-mode
    is enabled.
---
 lisp/tab-bar.el | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 1327bde908..f11f5380d0 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -296,6 +296,16 @@ tab-bar-back-button
 (defvar tab-bar-forward-button " > "
   "Button for going forward in tab history.")
 
+(defcustom tab-bar-history-buttons-show t
+  "Show back and forward buttons when `tab-bar-history-mode' is enabled."
+  :type 'boolean
+  :initialize 'custom-initialize-default
+  :set (lambda (sym val)
+         (set-default sym val)
+         (force-mode-line-update))
+  :group 'tab-bar
+  :version "28.1")
+
 (defcustom tab-bar-tab-hints nil
   "Show absolute numbers on tabs in the tab bar before the tab name.
 This helps to select the tab by its number using `tab-bar-select-tab'
@@ -415,7 +425,7 @@ tab-bar-make-keymap-1
          (tabs (funcall tab-bar-tabs-function)))
     (append
      '(keymap (mouse-1 . tab-bar-handle-mouse))
-     (when tab-bar-history-mode
+     (when (and tab-bar-history-mode tab-bar-history-buttons-show)
        `((sep-history-back menu-item ,separator ignore)
          (history-back
           menu-item ,tab-bar-back-button tab-bar-history-back
-- 
2.27.0

bug#45227: 28.0.50; [PATCH] New option tab-bar-history-buttons-show

[Juri Linkov]

tags 45227 fixed
close 45227 28.0.50
thanks

> New option tab-bar-history-buttons-show to control visibility of
> tab-bar-history back and forward buttons, similar to
> tab-bar-new-button-show and tab-bar-close-button-show.

Thank you for this patch.  Now your patch is pushed to master,
and this feature request is closed.