From e72fd12ec688efe046de98d5a6494fe2ffab7762 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 5 Jan 2021 20:43:22 +0200 Subject: [PATCH] * lisp/tab-bar.el (toggle-frame-tab-bar): New command (bug#45556) --- lisp/tab-bar.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 93f3c550ceb..b44fcfa3a02 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -196,6 +196,18 @@ See `tab-bar-mode' for more information." (tab-bar-mode (if (> (frame-parameter nil 'tab-bar-lines) 0) 0 1)) (tab-bar-mode arg))) +(defun toggle-frame-tab-bar (&optional frame) + "Toggle tab bar of FRAME. +This is useful when you want to enable the tab bar individually +on each new frame when the global `tab-bar-mode' is disabled, +or when you want to disable the tab bar individually on each +new frame when the global `tab-bar-mode' is enabled, by using + + (add-hook 'after-make-frame-functions 'toggle-frame-tab-bar)" + (interactive) + (set-frame-parameter frame 'tab-bar-lines + (if (> (frame-parameter frame 'tab-bar-lines) 0) 0 1))) + (defvar tab-bar-map (make-sparse-keymap) "Keymap for the tab bar. Define this locally to override the global tab bar.") -- 2.39.5