[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 0b9dc0a: * lisp/tab-line.el (tab-line-tab-selected): New face.
From: |
Juri Linkov |
Subject: |
master 0b9dc0a: * lisp/tab-line.el (tab-line-tab-selected): New face. |
Date: |
Sat, 2 Nov 2019 17:39:22 -0400 (EDT) |
branch: master
commit 0b9dc0a8fe7ce66d5a79ffefd7ca9b42882e3fe4
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>
* 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 cfb4223..0d3834a 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 0b9dc0a: * lisp/tab-line.el (tab-line-tab-selected): New face.,
Juri Linkov <=