mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

New user option 'tab-line-define-keys'

Browse source 
* lisp/tab-line.el (tab-line-define-keys): New defcustom.
(tab-line--define-keys, tab-line--undefine-keys):
New functions that explicitly bind commands from
'tab-line-mode-map' to 'ctl-x-map'.
(tab-line-mode-map): Leave this keymap empty by default
to avoid breaking 'ctl-x-map' (bug#79323).
(global-tab-line-mode): Call either 'tab-line--define-keys'
or 'tab-line--undefine-keys'.
This commit is contained in:
Juri Linkov 2025-08-31 21:23:05 +03:00
parent 07adb8b59d
commit 1ba75cc6fc
2 changed files with 57 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
etc/NEWS
View file

@ -434,6 +434,12 @@ docstring for arguments passed to a help-text function.
When non-nil, it truncates the tab bar, and therefore prevents
wrapping and resizing the tab bar to more than one line.
---
*** New user option 'tab-line-define-keys'.
When t, the default, it redefines window buffer switching keys
such as 'C-x <left>' and 'C-x <right>' to tab-line specific variants
for switching tabs.
---
*** New command 'tab-line-move-tab-forward' ('C-x M-<right>').
Together with the new command 'tab-line-move-tab-backward'

59
lisp/tab-line.el
View file

@ -1277,14 +1277,54 @@ However, return the correct mouse position list if EVENT is a
(event-start event)))
(defcustom tab-line-define-keys t
"Define specific tab-line key bindings.
If t, the default, key mappings for switching and moving tabs
are defined. If nil, do not define any key mappings."
:type 'boolean
:initialize #'custom-initialize-default
:set (lambda (sym val)
(tab-line--undefine-keys)
(set-default sym val)
;; Enable the new keybindings
(tab-line--define-keys))
:group 'tab-line
:version "31.1")
(defun tab-line--define-keys ()
"Install key bindings to switch between tabs if so configured."
(when tab-line-define-keys
(when (eq (keymap-lookup ctl-x-map "<left>") 'previous-buffer)
(keymap-set ctl-x-map "<left>" #'tab-line-switch-to-prev-tab))
(when (eq (keymap-lookup ctl-x-map "C-<left>") 'previous-buffer)
(keymap-set ctl-x-map "C-<left>" #'tab-line-switch-to-prev-tab))
(unless (keymap-lookup ctl-x-map "M-<left>")
(keymap-set ctl-x-map "M-<left>" #'tab-line-move-tab-backward))
(when (eq (keymap-lookup ctl-x-map "<right>") 'next-buffer)
(keymap-set ctl-x-map "<right>" #'tab-line-switch-to-next-tab))
(when (eq (keymap-lookup ctl-x-map "C-<right>") 'next-buffer)
(keymap-set ctl-x-map "C-<right>" #'tab-line-switch-to-next-tab))
(unless (keymap-lookup ctl-x-map "M-<right>")
(keymap-set ctl-x-map "M-<right>" #'tab-line-move-tab-forward))))
(defun tab-line--undefine-keys ()
"Uninstall key bindings previously bound by `tab-line--define-keys'."
(when tab-line-define-keys
(when (eq (keymap-lookup ctl-x-map "<left>") 'tab-line-switch-to-prev-tab)
(keymap-set ctl-x-map "<left>" #'previous-buffer))
(when (eq (keymap-lookup ctl-x-map "C-<left>") 'tab-line-switch-to-prev-tab)
(keymap-set ctl-x-map "C-<left>" #'previous-buffer))
(when (eq (keymap-lookup ctl-x-map "M-<left>") 'tab-line-move-tab-backward)
(keymap-set ctl-x-map "M-<left>" nil))
(when (eq (keymap-lookup ctl-x-map "<right>") 'tab-line-switch-to-next-tab)
(keymap-set ctl-x-map "<right>" #'next-buffer))
(when (eq (keymap-lookup ctl-x-map "C-<right>") 'tab-line-switch-to-next-tab)
(keymap-set ctl-x-map "C-<right>" #'next-buffer))
(when (eq (keymap-lookup ctl-x-map "M-<right>") 'tab-line-move-tab-forward)
(keymap-set ctl-x-map "M-<right>" nil))))
(defvar-keymap tab-line-mode-map
:doc "Keymap for keys of `tab-line-mode'."
"C-x <left>" #'tab-line-switch-to-prev-tab
"C-x C-<left>" #'tab-line-switch-to-prev-tab
"C-x M-<left>" #'tab-line-move-tab-backward
"C-x <right>" #'tab-line-switch-to-next-tab
"C-x C-<right>" #'tab-line-switch-to-next-tab
"C-x M-<right>" #'tab-line-move-tab-forward)
:doc "Keymap for keys of `tab-line-mode'.")
(defvar-keymap tab-line-switch-repeat-map
:doc "Keymap to repeat tab/buffer cycling. Used in `repeat-mode'."
@ -1374,7 +1414,10 @@ of `tab-line-exclude', are exempt from `tab-line-mode'."
(define-globalized-minor-mode global-tab-line-mode
tab-line-mode tab-line-mode--turn-on
:group 'tab-line
:version "27.1")
:version "27.1"
(if global-tab-line-mode
(tab-line--define-keys)
(tab-line--undefine-keys)))
(global-set-key [tab-line down-mouse-3] 'tab-line-context-menu)