diff options
author | Daniel MartÃn <mardani29@yahoo.es> | 2020-09-07 17:10:30 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-07 17:10:30 +0200 |
commit | 438cdc33288e0a34299c1f1985b7e405d63e75a5 (patch) | |
tree | 08a6797a59125debd28a5b68cf6835e9f6d45c62 /lisp/tab-line.el | |
parent | 0c4789e2defee35237651961391d0da69fbe26d8 (diff) | |
download | emacs-438cdc33288e0a34299c1f1985b7e405d63e75a5.tar.gz |
Add support for horizontal scrolling in tab-line
* lisp/tab-line.el ([tab-line wheel-left]): Bind left and right tab
line scrolling to the 'wheel-left' and 'wheel-right' mouse events.
([tab-line S-wheel-right]): Analogous change for the functions that
switch tabs.
* etc/NEWS: Announce the new feature (bug#43224).
Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp/tab-line.el')
-rw-r--r-- | lisp/tab-line.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/tab-line.el b/lisp/tab-line.el index e8c4dc4d93c..40f80959ccf 100644 --- a/lisp/tab-line.el +++ b/lisp/tab-line.el @@ -764,11 +764,15 @@ from the tab line." (global-set-key [tab-line mouse-5] 'tab-line-hscroll-right) (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 wheel-left] 'tab-line-hscroll-left) +(global-set-key [tab-line wheel-right] 'tab-line-hscroll-right) (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) +(global-set-key [tab-line S-wheel-left] 'tab-line-switch-to-prev-tab) +(global-set-key [tab-line S-wheel-right] 'tab-line-switch-to-next-tab) (provide 'tab-line) |