From 0b9dc0a8fe7ce66d5a79ffefd7ca9b42882e3fe4 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 2 Nov 2019 23:39:15 +0200 Subject: [PATCH] * lisp/tab-line.el (tab-line-tab-selected): New face. (tab-line-format): Use new face tab-line-tab-selected. ([tab-line]): Move tab-switching mouse wheel commands to S-keys. --- lisp/tab-line.el | 23 ++++++++++++++++++----- 1 file changed, 18 insertions(+), 5 deletions(-) diff --git a/lisp/tab-line.el b/lisp/tab-line.el index cfb4223bd21..0d3834ab740 100644 --- a/lisp/tab-line.el +++ b/lisp/tab-line.el @@ -77,6 +77,17 @@ :version "27.1" :group 'tab-line-faces) +(defface tab-line-tab-selected + '((default + :inherit tab-line-tab) + (((class color) (min-colors 88)) + :background "grey85") + (t + :inverse-video t)) + "Tab line face for tab in the selected window." + :version "27.1" + :group 'tab-line-faces) + (defface tab-line-highlight '((default :inherit tab-line-tab)) "Tab line face for highlighting." @@ -335,7 +346,9 @@ variable `tab-line-tabs-function'." `( tab ,tab face ,(if (eq tab selected-buffer) - 'tab-line-tab + (if (eq (selected-window) (old-selected-window)) + 'tab-line-tab-selected + 'tab-line-tab) 'tab-line-tab-inactive) mouse-face tab-line-highlight)))) tabs))) @@ -517,10 +530,10 @@ from the tab line." (global-set-key [tab-line wheel-up] 'tab-line-hscroll-left) (global-set-key [tab-line wheel-down] 'tab-line-hscroll-right) -(global-set-key [tab-line C-mouse-4] 'tab-line-switch-to-prev-tab) -(global-set-key [tab-line C-mouse-5] 'tab-line-switch-to-next-tab) -(global-set-key [tab-line C-wheel-up] 'tab-line-switch-to-prev-tab) -(global-set-key [tab-line C-wheel-down] 'tab-line-switch-to-next-tab) +(global-set-key [tab-line S-mouse-4] 'tab-line-switch-to-prev-tab) +(global-set-key [tab-line S-mouse-5] 'tab-line-switch-to-next-tab) +(global-set-key [tab-line S-wheel-up] 'tab-line-switch-to-prev-tab) +(global-set-key [tab-line S-wheel-down] 'tab-line-switch-to-next-tab) (provide 'tab-line) -- 2.39.5